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SECTION  1 


SUMMARY-CONCLUSIONS 


1.1  Introduction 

The  Microprocessor  controlled  Motor  Controller  Feasibility  study  was 
conducted  by  The  Charles  Stark  Draper  Laboratory  (CSDL)  from  December  1975 
to  January  1978.  Design  goals  included  the  hardware  realization  of  a con- 
trol algorithm  which  maximizes  system  performance  by  minimizing  harmonic, 
transient  and  steady  state  current,  and  also  maximizes  system  reliability 
by  limiting  the  stresses  and  overloads  to  each  component,  verification  of 
the  concept  of  using  a microprocessor  as  the  controlling  element  of  a 
motor  control  system  was  another  goal. 

1.2  Conclusions 

Variable  frequency  control  is  a proven  efficient  method  of  controlling 
the  speed  of  ac  induction  motors.  Variable  pulse  per  cycle  control  and 
transient  speed  control,  as  implemented  in  this  microprocessor  controlled 
motor  controller  system,  provided  significant  improvement  to  induction 
motor  speed  control.  The  slip  control  and  output  frequency  limit  algorithm 
also  improved  motor  speed  system  performance,  to  a lesser  degree. 

All  design  goals  established  for  this  feasibility  study  were  attained. 

A microprocessor  controlled  motor  controller  was  designed,  fabricated 
and  debugged  by  CSDL  and  the  microprocessor  was  programmed  and  debugged. 

The  results  of  tests  conducted  with  an  ac  induction  motor  verified  improved 
motor  performance  and  showed  the  concept  of  using  a microprocessor  for  this 
type  of  application  a definite  success. 

A FORTRAN  model  of  the  motor  and  controller  was  generated,  and  a 
simulation  conducted  on  the  CSDL  Amdahl  computer.  The  results  gave 
further  proof  of  the  feasibility  of  the  overall  concept. 
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SECTION  2 


CONTROL  ALGORITHM  BASIC  DESCRIPTION 


2.1  Variable  Frequency  Control 

Variable  frequency  control  has  been  proven  as  an  efficient  method 
of  controlling  the  speed  of  ac  induction  motors.  Frequency  is  easily 
varied  over  an  8 to  1 range  and  could  be  increased  if  desired.  A con- 
stant volt-time  product  (modified  by  slip  control  routine)  must  be 
maintained  at  the  motor  input  over  the  frequency  range.  This  require- 
ment causes  some  secondary  problems  and  the  control  algorithm  has  been 
designed  to  alleviate  them. 

The  best  motor  control  performance  results  from  incorporation  of 
the  following  major  features  into  the  control  algorithm: 

(1)  Variable  pulse  per  cycle  control 

(2)  Transient  speed  control 

(3)  Slip  control 

(4)  Output  frequency  limit 

The  advantages  of  each  feature  are  described  below. 


2.2  Variable  Pulse  Per  Cycle  Control 

Pulse  width  modulation  is  used  to  maintain  a constant  volt-time 
product  over  the  frequency  range.  With  this  type  control  the  percent 
modulation  varies  directly  with  frequency  while  the  harmonic  content 
of  the  waveform  is  a function  of  the  percent  modulation.  The  harmonic 
content  of  the  waveform  at  a particular  frequency  is  a function  of  the 
number  of  pulses  per  cycle.  By  increasing  the  number  of  pulses  per 
cycle  in  the  lower  frequency  ranges,  a reduction  in  the  5th  and  7th 
harmonics  may  be  achieved. 
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Not  only  is  the  harmonic  content  reduced  thereby  reducing  the  heat  dis- 
sipation of  the  motor,  but  motor  cogging,  a problem  in  the  past,  is  also 
eliminated  by  applying  more  pulses  of  smaller  pulse  width  during  lower 
speed  conditions. 

2.3  Transient  Speed  Control 

Starting  and  reversing  motor  currents  can  be  5 to  6 times  full 
load  running  currents  if  maximum  frequency  is  instantaneously  applied 
or  plug  reversing  of  the  motor  is  allowed.  Starting  and  reversing  motor 
currents  may  be  reduced  to  2.5  times  full  load  running  current  if  the 
frequency  change  applied  to  the  motor  is  limited  to  a specified  increment 
above  or  below  the  present  motor  speed.  This  approach  essentially  slews 
the  motor  to  the  desired  operating  speed.  The  torque  created  by  the 
motor  is  greater  than  that  of  the  brute  force  approach,  therefore,  the 
motor  can  be  started  and  reversed  faster  while  drawing  less  current. 

It  must  be  emphasized  that  direct  plug  reversing  of  a motor  should 
be  definitely  avoided  when  designing  a motor  controller  system. 

2.4  Slip  Control 

Slip  is  determined  by  comparing  the  frequency  applied  to  the  motor 
with  actual  motor  speed  measured  by  a tachometer.  Slip  is  usually  con- 
trolled by  varying  the  applied  voltage,  but  in  this  case  slip  is  con- 
trolled by  varying  the  pulse  width. 

The  torque-speed  characteristic  of  a motor  varies  as  the  square 
of  the  applied  voltage  at  a particular  frequency.  If  the  slip  is  too 
small  (motor  running  close  to  synchronize  speed)  the  applied  voltage 
(pulse  width)  is  decreased  thereby  lowering  the  torque-speed  motor 
curve  causing  the  motor  to  run  slower.  If  the  slip  is  too  large,  the 
pulse  width  is  increased,  increasing  the  torque-speed  curve  causing  the 
motor  to  run  faster. 

The  prime  advantage  of  this  type  control  is  a reduction  in  motor 
current  made  possible  by  an  improvement  in  power  factor.  With  a motor 
running  at  ideal  slip  its  power  factor  is  about  0.85.  Power  factor 
decreases  fairly  rapidly  at  low  slip  approaching  zero  at  synchronous 
speed,  therefore,  by  controlling  the  pulse  width  applied  to  the  motor 
its  torque-speed  curve  is  effected  causing  the  motor  to  run  close  to 
its  ideal  slip.  The  result  is  a higher  power  factor  and  a lower  motor 
current. 


Motor  temperature  and  average  motor  current  are  monitored.  If 
exceeding  a specified  limit,  the  applied  frequency  is  reduced.  Alarms 
and  motor  shut  downs  would  occur  at  still  higher  temperatures  and  cur- 
rents. The  applied  frequency  is  similarly  limited  if  the  primary  voltage 
source  (a  battery  in  this  application)  drops  below  a given  value.  Pulse 
width  is  reduced  at  higher  battery  voltage  resulting  in  a constant  volt- 
time product. 


SECTION  3 


* 


BASIC  SYSTEM  DESCRIPTION 


Figure  1 is  a block  diagram  of  the  implementation  of  a control 
algorithm.  The  following  is  a description  of  the  major  elements. 

The  micro-computer's  (microprocessor  + memory)  program  is  entered 
and  altered  by  the  operator  via  the  teletype  unit.  Speed  command, 
motor  speed,  motor  current,  motor  temperature,  and  battery  voltage  are 
signal  conditioned  and  then  input  to  the  micro-computer  via  the  I/O 
circuitry.  The  micro-computer  calculates  frequency,  number  of  pulses 
per  cycle  and  pulse  width  and  performs  the  real  time  generation  of 
phase,  frequency  and  pulse  width  control  which  are  output  via  the  I/O 
circuitry.  The  output  interface  electronics  performs  the  additional 
timing  and  interlocks  necessary  for  SCR  commutation  and  control . The 
gate  drive  circuits  provide  the  ground  isolation  and  gate  current  drive 
required  to  turn  the  SCR's  on.  The  SCR  power  stages  deliver  the  3 phase 
power  to  the  motor. 


CALCULATION  & REAL 


Figure  1,  System  block  diagram 


Overall  Program  Organization 


The  program  is  organized  into  an  inner  and  outer  loop  configura- 
tion in  which  three  main  tasks  are  performed. 


(1)  Calculation  of  output  frequency  (FC) , pulse  width  (PW) ; 
and  the  number  of  pulses  per  cycle  (PC) , based  on  input 
conditions,  is  performed  in  part  of  the  outer-loop. 


(2)  The  inner-loop  under  interrupt  control  performs  the  real 
time  generation  of  phase  frequency  and  pulse  width. 


(3)  An  additional  calculation  is  performed  in  the  outer  loop 
which  converts  FC  and  PW  to  a set  of  parameters  which  is 
required  for  the  function  of  the  inner-loop. 


The  mnemonics  for  the  microprocessor  (BSR,  JSR,  RTS,  etc.)  are 
defined  in  the  literature  furnished  with  the  processor  and  are  not 
included  in  this  report.  The  program  flow  diagram  (Figure  2) , should 
be  referenced  when  reading  the  descriptions. 


4.1.1  Parameter  Calculations 

(1)  Input  the  present  conditions 

(a)  Operator  speed  command  (Sc) 

(b)  Motor  speed  (TAC) 

(c)  Motor  current  and  Temperature  (IAVE  & Temp) 

(d)  Battery  voltage  (BPL) 

(2)  Calculate:  based  on  input  information 

(a)  Output  frequency  command  (Fc) 

(b)  Number  of  pulse  per  cycle  (#  P/C) 

(c)  Width  of  each  pulse  (PW) 


(3) *  Calculate:  based  on  pulse  width. 

(a)  Pulse  width  counter  (PWCNT) . 

The  number  of  interrupts  until  the  pulse  width 
generator  is  evoked. 

PWCNT  = PW/interrupt  time. 

(b)  Pulse  width  register  (PWREG) . 

The  time  remaining  to  be  counted  down  by  the  inner- 
loop  pulse  width  generator. 

PWREG  = PW  - PWCNT  x interrupt  time. 

(4) *  Calculate:  based  on  frequency  and  pulses  per  cycle. 


(a) 


Frequency  counter  (FCCNT) . 

The  number  of  interrupts  until  the  frequency  generator 
is  evoked. 


Period 


1 

FC  X PC 


FCCNT 


Period 

interrupt  time 


(b)  Frequency  register  (FCREG) . 

Represents  the  time  remaining  to  be  counted  down  by 
the  inner-loop  frequency  generator. 

FCREG  = (Period  - FCCNT  x interrupt  time)  x FC. 


* 

Note:  There  is  a delay  time  (INDEL)  which  is  subtracted  from  PW  and 

Period  in  the  above  calculations.  The  delay  is  associated 
with  the  microprocessor  interrupt  and  program  execution  times. 


4.1.2  Real  Time  Generation  of  Phase,  Frequency,  and  Pulse  Width 

(1)  Frequency  generation  (FCGEN) . 

A timer  which  generates  the  period  of  the  multiple  pulse 
output  frequency  (FC  x PC) . 

FCCNT  is  decremental  after  each  interrupt.  When  the  FCCNT 
equals  zero  the  FC  generator  is  evoked  which  counts  down 
FCREG.  When  FCREG  equals  zero  the  processor  outputs 
<j>A,  <f>B , <(>C  and  PULSE  commands. 

(2)  Pulse  width  generation  ( PWGEN ) . 

PWCNT  is  decremental  after  each  interrupt.  When  PWCNT 
equals  zero  the  PW  timer  is  evoked  which  counts  down 
PWREG.  When  PWREG  equals  zero  the  processor  outputs 


$A,  i}>B , ij)C  and  PULSE  commands. 


Three  phase  generation:  (Based  on  # P/C  and  sign  of  Fc) . 
(GENPH) 

Determines  if  there  is  to  be  a phase  change  during  the 
next  pulse  width  cycle  and  the  direction  of  phase  rotation. 
The  phase  generation  routine  is  executed  following  the 
frequency  rate  generator  routine. 

Short  pulse  width  generations  (SHTPW) . 

Same  as  pulse  width  generation  except  it  immediately 
follows  the  frequency  generation  executed  when  pulse  width 
time  is  less  than  one  interrupt  plus  delay. 


Inner  loop 

program  flow. 

(a) 

PWGEN 

routine 

(b) 

FCGEN 

routine 

(c) 

SHTPW 

routine 

(d) 

GENPH 

routine 

(e) 

RTI  (return  from  interrupt) 

4.1.3  Data  Definition 
Input  Data 


(1) 

SC 

Speed  Command  magnitude  input  (1  bit  = 

1/4 

Hz) 

(2) 

SCSGN 

Speed  Command  sign  input  (CW/CCW) 

(3) 

TAC 

Tachometer  feedback,  magnitude  input  (1 

bit 

= 1 

(4) 

TACSGN 

Tachometer  feedback  sign  input  (CW/CCW) 

(5) 

BPL 

Battery  voltage  magnitude  (1  bit  =>  1/2 

V) 

(6) 

BPLSGN 

Battery  voltage  sign 

(7) 

IAVE 

Average  motor  phase  current  magnitude 

(8) 

IAVSGN 

Average  motor  phase  current  sign 

(9) 

TEMP 

Motor  temperature  magnitude 

(10) 

TEMSGN 

Motor  temperature  sign 

Output  Data 


Phase  plus 
Pulse  Command 


4 bits  of  information  - (QA,  OB,  QC, 
PULSE) . Output  occurs  at  the  start 
and  stop  of  pulse  width  (PW) . Output 
rate  is  a function  of  frequency  com- 
mand (Fc)  and  number  of  pulses  per 
cycle  (PC) 


(2)  Test 


Internal  Data 


(1) 

PW 

(2) 

PWCNT 

(3) 

PWREG 

(4) 

FC 

(5) 

DLTF 

(6) 

FCCNT 

(7) 

FCREG 

(8) 

FCREGH 

(9)  FCINTR 

(10)  FCDEL 

(11)  FCREM 

(12)  Phase 

(13)  PHPONT 

(14)  PC 

(15)  R 

(16)  SCTAC 

(17)  DZ 

(18)  TLLl 


Internal  program  data  (selected  by 
operator)  is  outputted  to  a D/A. 

Used  for  program  evaluation 

Pulse  width  (1  bit  = 10  microseconds) 

Number  of  interrupts  prior  to  evoking  PW  timer 

Pulse  width  time  remaining  to  be  counted  down 
by  PW  timer 

Frequency 

Used  in  FC  hysteresis  calculation 

Number  of  interrupts  prior  to  evoking  FC  generator 

Used  with  FC  in  the  FC  generator  to  real  time 
frequency  output 

FCREGH  used  during  FCCNT  and  FCREG  calculations. 
FCREGH  and  FCREG  are  loaded  with  $104  = 260 
2600  microseconds  is  the  period  of  the  maximum 
output  frequency 

Used  during  FCCNT  and  FCREG  calculations 
FCINTR  = interrupt  time  x FC 

Used  during  FCCNT  and  FCREG  calculations 
FCDEL  = frequency  delay  time  x FC 

Used  during  FCCNT  and  FCREG  calculations 
FCREM  is  the  lower  8 bit  remained  when  FCINTR 
is  calculated. 

A three  bit  code  which  represents  phase  information 

Points  to  one  of  six  memory  locations  which  store 
phase  information 

Number  of  pulses  per  cycle  - really  the  number  of 
pulses  per  phase  used  in  phase  generated  routine 
for  incrementing  PHPONT. 

Remainder  - used  with  PC  in  phase  generation  routine 
Speed  command  minus  TAC 

Speed  command  dead  zone  - has  hysteresis 

TAC  dead  zone  (motor  starting)  - has  hysteresis 
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(19) 

(20) 

(21) 

(22) 

(23) 


(24) 


(25) 

(26) 

(27) 

(28) 

(29) 

(30) 


TLL2  TAC  dead  zone  (motor  running)  - has  hysteresis. 

SLIPN  Used  in  slip  control  routine  to  increment  the 

effects  of  ( SCTAC/1DEAL  SLIP)  on  pulse  width. 

STIME  Used  as  delay  in  incrementing  SLIPN  in  slip  control 
routine . 


ISCALE  Used  in  frequency  foldback  due  to  current  (IPOLD) 
routine.  A time  delayed  increment  of  FC  due  to 
high  current. 

ITMHVS  Used  in  I FOLD  - equals  either  1 or  2 seconds 

(hysteresis).  High  currents  mu3t  be  present  for 
2 seconds  before  foldback  of  frequency  may  occur. 
Enables  normal  current  transients  during  motor 
slowing  up  or  down. 

ITIME  Used  in  I FOLD.  ITIME  equals  the  length  of  time. 

IAVE  is  greater  than  the  current  limit.  ITIME 
must  be  greater  than  ITMHYS  before  I FOLD  routine 
may  be  evoked. 

ITMINC  Used  in  I FOLD.  ITMINC  causes  a 50-millisecond 
time  delay  in  the  incrementing  of  ISCALE. 

MLTCAN  Used  in  multiply  routine. 

DENOM  Used  in  divide  routine. 


Zero  False  data  for  programming  convenience. 

Zero  1 False  data  for  programming  convenience. 

data  n «-data  being  calculated  in  the  outer  loop 

data  X -»-data  transferred  from  outer  to  a transfer  state 

data  I -«-data  being  used  by  inner  loop 


Outer  loop 

Xfr  loop 

Inner  loop 

PWCNT 

PWCNTX 

PWCNT I 

PWREG 

PWREGX 

PWREGI 

FCCNT 

FCCNTX 

FCCNT I 

FCREG 

FCREGX 

FCREGI 

FC 

FCX 

FCI 

SCSGN 

SCSGNX 

SCSGNI 

PC 

PCS 

PCI 

PHASE  I 

* PHASE  is  generated  within  the  inner  loop. 
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4 . 2 Subroutine  Description 

The  following  paragraphs  describe  the  subroutines  of  the  overall 
program.  The  referenced  figures  are  flow  diagrams  for  the  subroutine. 

4.2.1  Initial  Conditions  Routine 


a.  All  memory  data  is  initialized  to  zero  except: 

Dz  - 8 Hz 

TLL1  = 3 Hz 

TLL2  = 5 Hz 

SLIPN  = MAX 
STIME  - 10  ms 

ITMINC  = 50  mx 

ITMHYS  = 2 sec 

b.  PIA  is  programmed: 

PIAPA  = Input 
PIAPB7  = Input  (Sign) 

PIAPB(0-*-6)  = Output 


Output 

P1APB(4,5,6)  for  decoding, 
P1APB (0, 1 , 2 , 3)  for  data. 


Sc 

TAC 

B+ 

IAVE 

Temp 

Q+PW 

Test 

LO  Order 

Test 

HI  Order 

INPUT 

OUTPUT 

c.  Output  clear  command  8 times 

Clear  is  defined  as  <)>A,  #B,  & 4>C  all  low.  Therefore  no 
frequency  is  applied.  The  motor  is  at  a stand  still,  but 
the  commutation  capacitors  are  charged. 


4.2.2  Input  Subroutine 

a.  Speed  command,  tachometer,  B+,  Average  current,  and 

Temperature  are  input  to  the  processor  and  stored  in  memory. 
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b.  The  sign  of  all  inputs  are  tested  and  the  magnitude  comple- 
mented if  negative. 

c.  The  index  register  is  used  to  load  the  input  data  into  the 
correct  location  in  memory. 


4.2.3  I FOLD 

The  function  of  this  routine  is  to  limit  long  term  motor  current 
below  a prespecified  limit  by  reducing  the  speed  command.  Motor  accel- 
erating and  decelerating  currents  exceed  the  current  limit  but  do  not 
cause  a SC  foldback  unless  they  exist  for  a period  longer  than  2 seconds. 

When  the  current  limit  is  exceeded  ITIME  is  incremented  and  com- 
pared to  ITMHYS.  ITMHYS  is  initialized  to  2 seconds.  If  ITIME  is  less 
than  ITMHYS  the  foldback  of  SC  is  bypassed.  If  ITIME  exceeds  ITMHYS, 
ITMHYS  is  set  to  1 second. 


Once  ILIM  and  ITMHYS  have  been  exceeded,  SC  foldback  due  to  IAVE 
begins.  The  method  of  SC  foldback  is  to  compare  SC  to  the  ratio 

(SS  --irl)  and  if  the  inPut  SC  is  neater,  set  SC  to  (jjgf  I gg). 

It  is  necessary  to  implement  SC  foldback  in  an  incremental  and  time 
delayed  fashion,  otherwise  large  current  transients  due  to  rapid  SC 
changes  would  result.  The  delay  is  implemented  by  preloading  ITMINC 
to  25  and  decrementing  each  pass  through  the  outer  loop.  Assuming 
2 milliseconds  per  pass,  this  results  in  a 50  milliseconds  delay. 


The  incrementing  of  SC  is  implemented  through  the  calculation  of 


I SCALE. 


If  ISCALE  is  greater  than 


/IAVE  - ILIM\ 
y IMAX  - ILIM  J 


then  ISCALE  =*  ISCALE  - 


/IAVE  - ILIM' 
yIMAX  - ILIM; 


- ISCALE  /8  . 


If  ISCALE  is  less  than 


( IAVE  - ILIM\ 
yIMAX  - ILIM / 


then  ISCALE  = 7/8  ISCALE. 


With  time  ISCALE  « 


IAVE  - ILIM 
IMAX  - ILIM 


When  current  falls  below  ILIM  and  ITIME  is  less  than  ITMHYS, 
ISCALE  is  reduced  as  follows  ISCALE  = ISCALE/2. 
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4.2.4  Sc  Foldback 

a.  B+  and  Temperature  are  tested  for  exceeding  a prespecified 
limit.  If  so,  speed  command  is  limited. 

b.  A clear  command  is  generated  if  an  undervoltage  condition 
exists . 

c.  Example  of  TEMP  limit: 


1)  Subtract  limit  for  TEMP 

la)  Skip  to  end  if  less  than  limit 


3/4  max 


(TEMP  - limit) 


2)  Scale  (TEMP  - limit) 
Multiply  by  4 


4 (TEMP  - limit) 


Complement  4 (TEMP  - limit)  100% 

freq. 

limit 

* 

0% 


4 (TEMP  - limit) 


4.2.5  Set  Condition 

Frequency  command  Fc  is  generated  as  a result  of  series  of  tests 
which  determine  if  the  system  is  in  a steady  state,  transient  (starting, 
stopping  or  reversing)  or  zero  rate  condition. 


If  steady  state  condition 


Fc  = Sc 


If  transient  starting  condition  Fc  = Tac  + DLTUP 

If  transient  stopping  condition  FC  = Tac  - DLTDW 

If  transient  reversing  condition  1st  Fc  = Tac  - DLTDW 

(sign  = TAC  sign) 

2nd  Fc  = Tac  + DLTUP 

(sign  = Sc  sign) 


If  zero  rate  condition 


Clear  command  issued 


DLTUP  = 7.5  Hz 


DLTDW  = 3 Hz 
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Hysteresis  is  incorporated  to  prevent  chattering  between  the 
various  conditions 

Sc  dead  zone  (DZ  = 7.5  and  8 Hz) 

Tac  low  level  (TLL^  = 2.5  and  3 Hz) 

(TLL2  = 5 and  5.5  Hz) 


4.2.6  Fc  Hysteresis 


The  purpose  of  this  routine  is  to  insert  hysteresis  in  the  fre- 
quency setting  at  which  the  system  switches  from  1 to  2,  2 to  4,  and  4 
to  8 pulse  per  cycle  mode  (P/C) . This  is  accomplished  by  inserting 
hysteresis  in  the  frequency  command  (Fc) , determining  P/C  based  on 
Fc  with  hysteresis  and  later  removing  the  hysteresis  from  Fc.  The 
figure  below  demonstrates  the  operation  of  this  scheme.  Consider  for 
example  that  the  system  is  operating  in  the  4 pulse/cycle  (4  P/C)  mode 
and  Fc  is  increasing.  The  system  will  remain  ir;  the  4 P/C  mode  until 
Fc  Hysteresis  passes  30  Hz  at  which  time  the  system  switches  to  the 
2 P/C  mode.  If  Fc  now  decreases,  the  system  will  not  switch  back  to 
the  4 P/C  mode  until  Fc  Hysteresis  passes  through  the  calculated  lower 
bound.  The  result  is  a smooth  transition  of  Fc  from  0 to  60  Hz,  while 
the  problem  of  jumping  back  and  forth  between  P/C  is  eliminated. 


4.2.7  Adj  FCREG,  PC,  PW 

Frequency  register  (FCREGH  and  FCREG) , number  pulses  per  cycle 
(PC)  and  pulse  width  (PW)  are  generated  as  a function  of  frequency 
command  (Fc)  per  the  following  table: 


Fc 


45  to  70 
30  to  45 
10  to  30 
Below  10 


HexidecimaT 


NOTE:  Assuming  the  4 PC  mode,  tne  processor  will  output  four  pulses 
of  0.63  ms  to  the  motor  between  each  phase  change.  There  are 
six  phase  changes  each  complete  period. 


<£A 


<t>  B 


<P  c 


TYPICAL  PHASE  CHANGE 


PC  (NUMBER  OF  PULSES  WITHIN  CYCLE) 


4.2.8  Slip  Control 

SLIPN  is  incremented  every  10  ms  as  a function  of  slip  (SCTAC) . 
Pulse  width  (PW)  is  varied  as  a function  SLIPN  resulting  in  an  effec- 
tive reduction  in  output  voltage.  The  object  is  to  operate  the  motor 
near  its  ideal  slip  resulting  in  an  improvement  in  power  factor  and  a 
reduction  in  motor  current.  The  square  root  (modified)  of  slip  is 
calculated  and  multiplied  by  (PW) . A modified  square  root  routine  is 


1 


FCREGH  & FCREG 

PC 

PW  (ms) 

104  H 

1 (80h> 

2.55  (FF„)  a MAX  PW 

H 

82  H 

2 <40h) 

1.27  (7Fh)  k MAX  PW/2 

41  H 

4 (20h) 

0.63  (3F„)  ~ MAX  PW/4 

H 

20  H 

8 (10H) 

0.31  (1F„)  ss  MAX  PW/8 

H 
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used  due  to  its  simplicity  and  speed  of  calculation.  An  exact  square 
root  routine  would  take  far  too  long  to  calculate  and  is  not  necessary. 

The  following  indicates  why  the  square  root  is  used. 

Output  motor  torque  is  a function  of  output  voltage  squared, 
2 

(T  = k^V  ) . Output  voltage  is  a function  a pulse  width, 

(V  = k0PW) . Therefore  if  we  make  pulse  width  a function  of 

* 1/2 

square  root  of  slip  (PW  = k3(Sc-TAC)  ' ),  then  output  motor 

torque  will  be  a direct  function  of  slip.  T = k (Sc-TAC) 

4.2.9  Adj  PW  for  B+ 

Pulse  width  is  adjusted  for  changes  in  B+  resulting  in  a constant 
output  voltage  to  the  motor  independent  of  B+. 

100V 


ADJ  PW  = 


B+ 


(PW)  for  B+  between  100  to  128  Volts. 


4.2.10  Calc.  PWCNT  and  PWREG 

PWPRGT  (50  ms)  is  the  PW  program  time  delay. 

INTRTM  (320  ms)  is  the  interrupt  time. 

PWCNT  = [ (PW  - PWPRGT) /INTRTM]  + 1. 

One  (1)  is  added  due  to  an  extra  decrement  during  pulse  width 
generation. 

PWREG  = PW  - PWPRGT  - ^INTRTM  X (PWCNT  - l)j 

4.2.11  Calc.  FCCNT  and  FCPEG 

FCDEL  = delay  (100  ms)  X FC 
FCINTR  = INTRTM  X FC 

FCREM  = lower  8 bits  of  the  above  calculation. 

FCREGH  & FCREG  is  initialized  to  the  period  of  the  maximum 
frequency  (64  Hz) 

FCCNT  = [(FCREG  - FCDEL) /FCINTR]  - 1. 

One  (1)  interrupt  is  always  intentionally  missed  during  inner 
loop  operation,  therefore  the  minus  one  (-1). 

FCREG  = FCREG  - FCDEL  - | (FCCNT  + 1)  X FCINTr) 

4.2.12  Test  Output 

One  word  of  previously  selected  processor  internal  data  is  out- 
putted via  the  PIA  to  a digital  to  analog  (D/A)  module.  Used  for 
evaluating  algorithm  or  system  performance. 
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4.2.13  Transfer  Information 

Outer  loop  information  is  transferred  inner  loop  to  an  inbetween 
transfer  state.  Transfer  may  occur  only  immediately  following  a return 
from  inner  loop.  This  is  accomplished  by  clearing  "zero"  and  then 
testing  for  a change  in  "zero".  The  inner  loop  loads  "zero"  with  #1. 
The  purpose  of  this  subroutine  is  to  prevent  an  improper  mix  of  new 
and  old  data  being  used  by  the  inner  loop. 

4.2.14  Multiply  Subroutine 

Multiplies  fractions  or  a fraction  and  a whole  number.  The  steps 

are : 

(1)  The  multiplicand  is  stored  in  A. 

The  multiplier  is  stored  in  B. 

(2)  The  program  branches  to  the  multiply  subroutine. 

(3)  The  multiplicand  is  stored  in  memory  (MLTCAN) . 

(4)  The  multiplication  routine  runs. 

(5)  The  result  develops  in  A. 

(6)  Branch  back  to  main  program.  (Result  is  an  A.) 

4.2.15  Divide  Subroutine 
Numerator  < Denominator 
The  steps  are: 

(1)  The  numerator  is  stored  in  B. 

The  denominator  is  stored  in  A. 

(2)  The  program  branches  to  divide  subroutine. 

(3)  The  denominator  is  stored  in  memory  DENOM. 

(4)  The  divide  routine  runs. 

(5)  The  result  develops  in  A. 

(6)  Branch  back  to  main  program.  (Result  is  A.) 

4.2.16  GENPH  - Generate  Phase  Pointer  and  Phase 

The  phase  pointer  (PH  PONT)  points  to  one  of  six  phase  combina- 
tions stored  in  memory.  As  the  PH  PONT  increments  (1,  2,  3,  4,  5,  6, 

1,  2,  etc.)  the  phase  combinations  sequentially  pointed  to  in  memory 
represent  a 3-phase  clockwise  rotation. 


The  phase  pointer  is  incremented  or  decremented  each  time  it  is 
necessary  to  make  a phase  change.  This  is  determined  by  multiplying 
(PC)  by  2 and  adding  the  results  to  (R)  remainder.  Each  time  a carry 
results  the  phase  pointer  is  incremented  or  decremented  depending  on 
the  sign  of  the  frequency  command  (Sc  Sign) . 

4.2.17  Output  Information 

Phase  and  PW  are  outputted  to  interface  electronics  by  way  of  the 


. ft 


► 
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SECTION  5 

HARDWARE  DESCRIPTION 


The  Motor  Controller,  as  implemented,  required  5 standard 
rack  mounted  p.c.  cards,  3 power  output  stages  and  six  SCR  driver  cards. 

The  five  p.c.  cards  are  as  follows: 

A1  - TTY  Interface 

A2  - Computer  Card 

A3  - Input  Card 

A5  - Output  Interface  Card 

A6  - Adapter  and  D/A  Card 

A detailed  functional  description  of  these  cards  follows. 

5.1  TTY  Interface,  Card  A1 

This  card  contains  provisions  for  reset,  halt,  single  step  opera- 
tion, TTY  interface,  and  overvoltage  protection  for  the  +5  volt  supply. 
Since  all  but  the  overvoltage  protection  are  essentially  standard  cir- 
cuits taken  from  the  Motorola  "M6800  Microprocessor  Applications  Manual," 
or  Motorola  Engineering  Note  "100",  only  this  circuit  will  be  described 
here. 

The  overvoltage  protection  circuit  utilizes  a dual  transistor  (T^) 
to  compare  Zener  D3  voltage  with  the  +5  volt  supply  output  voltage.  If 
the  5-volt  output  is  above  a predetermined  level  (approximately  6 volts) , 
transistor  T2  is  turned  on  applying  the  gate  signal  to  SCR1.  This  sig- 
nal causes  SCR1  to  turn  on  thereby  shorting  the  output  of  the  5-volt 
supply  to  ground  through  current  limiting  resistor  R23  and  a 5 Amp.  fuse. 
The  5 Amp.  fuse  will  then  blow  disconnecting  the  +5  volt  supply  from 
the  +5  volt  bus.  At  this  point,  the  +5  volt  supply,  regardless  of  its 
peak  output  level,  is  unable  to  damage  circuitry  connected  to  the  bus. 
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Computer  Card  A2 

The  computer  card  consists  of  the  following: 

1.  One  (1)  P.I.A.  (A4)  - MC  6820 

2.  One  (1)  MCM  6810  (A3)  (128  x 8)  Static  RAM 

3.  One  (1)  MCM  6830L7  (A2  (1024  x 8)  MIKBUG  ROM 

4.  One  (1)  MC6871A  (A7)  two  phase  1MHz  Clock 

5.  Eight  (8)  2102-1  (1024  x 1)  Static  RAMS 

6.  Two  (2)  DM  8097  Tri-State  Gates 

7.  One  (1)  MC  6800  (A8)  Microprocessing  Unit 

8.  One  (1)  MC  6820  P.I.A.  (A9)  for  Input/Output 

9.  One  (1)  74LS138  Address  Decoder  (Al) 

10.  Two  (2)  Level  Shifting  buffers  for  "Register  B" 

Output  of  the  I/O  P.I.A.  (7417) (A6),  (A10) 


} Teletype 
Interface 


(1024  x 8) 
Static  RAM 


11.  Two  (2)  7400  Quad  Gates  for  miscellaneous  logic 
operations  (All),  (A22) . 

It  was  found  that  the  only  problems  encountered  in  implementing 
this  card  were  the  normal  problems  encountered  when  using  unfamiliar 
circuits  for  the  first  time  (e.g.,  misinterpretation  of  data  sheet, 
polarity  reversals,  etc.).  These  problems  were  very  quickly  overcome 
and  do  not  warrant  discussion. 


5.3  Input  Card  A3 

Proper  implementation  of  the  algorithm  developed  for  micro-computer 
control  of  the  motor  controller  requires  the  continuous  sampling  of  a 
number  of  variables  such  as:  motor  speed  command,  tachometer  output, 
etc.  Since  all  of  these  are  most  readily  sensed  as  analog  quantities, 
it  remains  for  the  controller  to  convert  these  quantities  into  a form 
suitable  for  communication  with  the  microprocessor. 

Communication  with  the  MPU  is  provided  by  the  Data  Translation 
Inc.,  Model  DT-830,  8-channel  data  acquisition  module.  This  module 
consists  of  an  8-channel  analog  multiplexer,  a sample  and  hold  circuit; 
a 10-bit  bipolar  A to  D converter  and  associated  control  circuitry.  A 
3-bit  address  is  provided  to  the  MUX  address  input  line  by  the  MPU  PIA 
output  lines  PB4 , 5,  and  6.  By  means  of  this,  it  is  possible  to  select 
any  one  of  the  eight  input  channels  available;  only  five  channels  are 
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required  for  this  application.  A clock  pulse  derived  from  CB2  by  card 
A6,  Adapter  and  D/A  card,  ensures  that  the  address  information  presented 
to  the  MUX  has  stopped  changing  before  a convert  command  is  issued  to 
the  DT-830. 

When  a convert  command  is  received,  the  sample  and  hold  circuit, 
which  has  been  tracking  the  input  analog  signal,  holds  the  input  signal 
until  the  conversion  is  completed. 

The  10-bit  successive  approximation  A/D  converter  makes  the  data 
available  through  tri-state  output  gates.  The  MSB  (pin  62)  is  connected 
to  PB7  while  the  next  8 bits  are  sampled  by  the  data  bus  (PAO  - PA7) ; 
the  LSB  is  not  used  in  this  application.  Provision  is  also  made  on  the 
card  to  enable  the  application  of  external  calibration  voltages  to  the 
DT-830.  This  permits  calibration  of  the  unit  without  removing  it  from 
card  A3. 

The  board  also  contains  signal  conditioning  circuitry  for  the  tach- 
ometer output  voltage  and  a means  of  generating  a speed  command  input  to 
the  MPU. 

All  that  is  needed  for  the  tachometer  signal  conditioning  is  an 
operational  amplifier  having  low  pass  filtering  in  both  the  input  and 
output  circuits  and  a dc  gain  which  provides  the  proper  scaling  factor 
between  tachometer  output  and  A/D  input. 

The  speed  command  is  derived  from  the  ±15-volt  supplies  using 
a potentiometer  across  two  5.1  volt  Zener  diodes  thereby  providing  a 
continuously  varying  voltage  from  +5  to  -5  volts.  This  voltage  is 
applied  to  a rate  limiting  circuit  which  prevents  application  of  a step 
change  to  the  controller  input.  Provision  has  also  been  made  to  apply 
a step  of  either  +5  volts  or  -5  volts  by  setting  the  pot  to  0 volt  and 
activating  a three-position  toggle  switch. 

5.4  Output  Interface  Card  A5 

This  card  in  conjunction  with  the  "Adapter  and  D/A  Card"  (A6)  con- 
verts the  information  generated  by  the  MPU  to  a form  suitable  for  con- 
trolling the  power  stages.  Card  A6  utilizes  a BCD  to  decimal  converter 
(Al)  to  decode  the  command  outputs  on  lines  PB4,  PB5 , and  PB6 . Synch- 
ronizing pulse  CB2  is  used  to  ensure  that  all  selected  signals  will 
not  be  changing  at  the  time  they  are  sampled.  Input  commands  clocked 
into  channels  DO,  Dl,  D2,  D3,  or  D4  by  CB2  are  NOR’ ED  by  IC  A3  to  pro- 
duce a clock  level  suitable  for  the  input  card  data  acquisition  module. 
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Phase  output  sampling  is  selected  by  channel  D5  which  also  produces  the 
clock  input  necessary  for  the  output  card  (A5) . Calling  up  channels  D6 
and  D7  of  IC  A1 , permits  the  sampling  of  the  data  on  lines  PBO  through 
PB3  by  the  AD  7520  8-bit  D/A  converter  IC  (A7) . With  D7  sampling  the 
higher  order  bits  and  D6  the  lower  order  bits.  g>A,  g>B , 4>C  information 
is  operated  on  by  the  8-channel  data  selector  A9  to  produce  the  ex  or 
signal  needed  by  output  card  A5.  All  of  the  signals  produced  by  P.C. 
card  A6  with  the  exception  of  the  D/A  output  and  the  input  clock  are 
routed  to  Output  Card  A5  where  they  are  used  to  generate  the  signals 
required  by  the  power  stage  and  power  stage  SCR  drivers. 

On  card  A5  the  ipA,  <t> B,  ij>C,  PW  and  ex  or  information  are  combined 
by  the  quad  and/or  select  gate  (IC  A9)  to  produce  the  waveform  desired 
for  the  SCR  gate  drivers.  This  is  accomplished  by  placing  <)>A,  <f>B , and 
<J>C  information  on  the  A inputs  and  the  ex  or  information  on  the  B 
inputs.  The  selection  of  the  A or  B inputs  is  then  made  to  depend  on 
the  absence  or  presence  of  a "1"  on  the  PW  input.  There  is  also  a 
provision  at  this  point  to  have  a peak  current  limit  condition  or  the 
"Clear"  position  of  the  "Clear-run”  switch  force  the  IC  to  select  B 
inputs.  At  the  same  time  the  B inputs  are  forced  to  a "1"  level. 

The  discussion  up  to  this  point  has  covered  the  generation  of 
the  proper  waveforms  to  correctly  operate  the  Power  stage  SCR  drivers. 
If  these  stages  are  to  function  properly,  the  timing  relationship 
between  sample  time,  turn  off  of  the  output  SCR's,  and  turn  on  of  the 
commutation  SCR's  must  be  maintained.  The  correct  timing  is  shown 
below: 


OUTPUT 

SCR 

TURN-OFF 


SAMPLE 


TURN-ON 

COMM 

SCR 


INHIBIT 


48  M SEC 


I V SEC 


2 4 SEC 


50  V-  SEC 


80  /i  SEC 
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Each  time  the  clock  input  of  Card  A5  goes  high,  a 1 level  is  presented 
to  the  D Input  of  the  MC  14015  dual  4-bit  shift  register  (S.R.).  This 
level  is  clocked  into  the  S.R.  by  the  1 MHz  clock  Q2T.  The  inhibit 
pulse  then  removes  the  level  to  prevent  multiple  pulses  from  being 
loaded.  Successive  Q2T  pulses  shift  this  input  pulse  through  the  reg- 
ister and  provide  the  output  pulses  shown  above  with  the  aid  of  three 
(3)  one  shot  multivibrators.  The  main  and  commutate  SCR  pulses  are 
nanded  with  the  <j>A,  4>B , 

5.5  SCR  Driver  Card 

Each  driver  card  consists  of  a main  gate  drive  circuit  and  a 
commutate  gate  drive  circuit.  The  commutate  command  is  on  the  order 
of  50  milliseconds  and,  therefore,  a pulse  transformer  with  single 
ended  drive  is  quite  suitable.  The  main  gate  drive  commands  are  much 
longer,  therefore,  a push-pull  25  KHz  transformer  coupled  circuit  with 
dc  rectification  in  the  secondary  is  utilized.  Both  circuits  provide 
for  gate  current  overdrive  at  turn-on.  This  insures  higher  di/dt  SCR 
capability. 

5.6  Interrupt  Generation 

A module-N-divider  in  conjunction  with  a one-shot  generate  a 
series  of  interrupt  pulses  at  320  milliseconds  intervals.  The  timing 
of  these  pulses  is  reset  at  the  start  of  each  output  pulse  width.  The 
function  is  implemented  on  card  A1  and  A6. 

5 . 7 Power  Stages 

The  McMurray  Inverter  was  chosen  as  the  power  stage  for  this  con- 
troller, The  circuit  is  the  classic  McMurray  circuit  with  the  addition 
of  a few  added  components  dictated  by  real  world  practicalities. 

Since  the  McMurray  circuit  has  been  described  many  times  in  the 
current  technical  literature,  a description  of  its  operation  will  not 
be  included  here. 

The  most  noticeable  deviation  from  the  classic,  is  the  inclusion 
of  40  yh  inductors  in  the  power  stage  (refer  to  the  accompanying 
schematic).  These  pulus  the  RC  snubbers  across  the  individual  SCR's 
were  added  to  limit  the  reapplied  dv/dt. 
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SECTION  6 


SYSTEM  SIMULATION 


6.1  General  Description 

A FORTRAN  model  of  the  controller,  motor  and  load  was  generated 
and  a simulation  was  conducted  on  The  Charles  Stark  Draper  Laboratory 
Amdahl  computer.  The  simulation  helped  verify  the  overall  concept  and 
led  to  refinements  in  the  control  algorithm.  The  simulation  uncovered 
a basic  flaw  in  a control  function  (IFOLD)  and  aided  in  finding  a solution. 

6.2  Model  Organization 

(1)  CNTR1  Subroutine  - Models  the  control  algorithm  which  exists 
in  the  microprocessor.  The  prime  inputs  are  speed  command 
(SC) , Motor  speed  (TAC)  and  motor  current  (I) . The  prime 
outputs  are  frequency  command  (F)  and  Pulse  width  (PW) . 

(2)  HRMNIC  Subroutine  - Determines  the  Fourier  harmonics  of  the 
controller's  output  waveform  which  is  delivered  to  the  motor. 
The  prime  inputs  are  (F)  and  (PW)  from  which  the  shape  of 
the  waveform  is  determined  and  battery  voltage  (VB) . The 
prime  outputs  are  the  Fourier  voltage  coefficients  VI,  V5, 

V7,  etc. 

(3)  MOTOR Z Subroutine  - Models  the  motor.  The  prime  inputs  are 
RMS  voltage  (V)  , harmonic  number  (N) , frequency  (F)  and 
motor  speed  (STAC) . The  prime  outputs  are  RMS  motor  torque 
(TQ) , motor  input  current  (II),  rotor  current  (12),  power 
factor  (pf ) and  rotor  loss  (ROTL) . 

(4)  MOTOR  Subroutine  - Passes  the  Fourier  voltage  coefficients 
(VI,  V5,  V7,  etc.)  along  with  harmonic  number,  frequency 
and  motor  speed  to  the  MOTORZ  subroutine.  Sums  the 
resulting  harmonic  torques,  currents,  and  rotor  losses. 
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(5)  LOADG  Subroutine  - Models  a generator  load.  The  prime 
inputs  are  motor  torque  (TORQ)  and  motor-load  speed  (RDTAC) . 
The  resulting  output  is  the  updated  motor- load  speed  (RDTAC) . 

(6)  LOOP  Subroutine  - Sequences  the  program  through  the  sub- 
routines and  outputs  the  results  to  data  files  or  the 
printer. 

(7)  MAIN  Subroutine  - 

(a)  Defines  system  parameters 

(b)  Establishes  test  conditions 

(c)  Calls  loop  a prescribed  number  of  times 

6 . 3 FORTRAN  Model  Program 

Printout  sheets  for  the  FORTRAN  model  program  are  given  in 
Appendix  A. 

6 . 4 Simulation  Results 

(1)  Transient  speed  control 

(a)  The  motor  current  is  less,  the  motor  torque  is  higher 
and  the  response  of  the  motor  faster  by  utilizing 
transient  speed  control  versus  allowing  step  speed 
command  to  be  applied  to  the  motor.  The  reduction 
in  motor  current  is  on  the  order  of  2.5  to  1. 

\b)  DLTAUP  = 7.5  Hz  proved  to  be  a good  choice. 

DLTADW  = 3 Hz  is  a reasonable  compromise. 

Initially  it  had  been  set  to  7.5  Hz  which  did  not 
reduce  reversing  currents  sufficiently. 

(c)  TLL2  HYSTERESIS  lowered  to  5.5  and  5.0 

(d)  Motor  starting:  FC  = BNDRYL  + TAC. 

Had  been  FC  = BNDRYL. 

(2)  Multiple  pulse  per  cycle  boundaries  - The  frequency  boun- 
daries of  the  various  pulse  modes  were  adjusted  to  minimize 
motor  current  harmonics.  The  new  boundaries  are: 


1 

P/C 

45 

to 

60 

HZ 

2 

P/C 

30 

to 

45 

Hz 

4 

P/C 

10 

to 

30 

Hz 

8 

P/C 

Below 

10 

Hz 
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(3) 


(4) 


Slip  Control  - The  basic  approach  functioned  as  designed. 

Some  improvement  in  motor  performance  if  PW  was  increraently 
reduced  in  a delayed  manner  as  a function  of  the  ratio  of 
slip/ideal  slip. 

Current  Foldback  of  Speed  Command  I FOLD  - Significant  changes 
were  necessary  to  attain  proper  operation  of  this  control 
function.  Limiting  speed  command  (SC)  to  the  ratio  of 
IAVE  - ILIM 


x MAX  SC  was  found  to  be  a sound  concept. 


ILIM  - IMAX 

The  simulation  showed  that  large  motor  currents  will  occur 
unless  the  value  of  SC  limit  is  incremented  to  its  final 
value  in  a delayed  fashion.  Essentially  what  had  been 
initially  programmed  was  an  unstable  feedback  loop  and, 
therefore,  compensation  was  required. 


6.5  Simulation  Curves 


(1) 

(2) 


Model  Block  Diagram  (See  Appendix  A) 

Step  Functions  - speed,  motor  torque,  and  motor  current  are 
plotted  vs  time. 


SF  #6 


DLTUP  = 7.5  Hz 

SC  =*  0 to  60  Hz  Controller  DLTDW  = 3 Hz 

SC  = +60  Hz  to  -60  Hz  Controller  FINAL  PARAMETER 

CONFIGURATION 


(3) 


FOURIER  Coefficients  vs  Percent  Modulation 
(a) 


SF 

#1 

SC  = 

0 to  60  Hz 

No  Controller 

SC  = 

+60  Hz  to  -60 

Hz 

No  Controller 

* 

SF 

#2 

sc  = 

0 to  60  Hz 

Controller  DLTUP  = 

7.5 

Hz 

sc  = 

+60  Hz  to  -60 

Hz 

Controller  DLTDW  = 

7.5 

Hz 

0 

Percent  Modulation  = (total  pulse  width/(2/3)  period)*  100% 
100%  Modulation  waveform  ^AB 


50%  Modulation  waveform 


(b) 

(c) 


1st  (VI)  through  25th  (V25)  harmonic  are  plotted. 
Curves  of  1,  2,  4 and  8 pulse  modes  are  presented. 


(4) 


Percent  Harmonic  at  Various  Pulse  Modes  vs.  Frequency  - 
Curves  represent  what  the  percent  harmonic  content  would 
be  if  a fixed  pulse  mode  were  maintained  over  the  full 
speed  range. 


2* 
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(5)  MOTOR  Z Curves  - Motor  torque,  current  and  power  factor  vs 
motor  speed. 

(a)  Line  frequency  = 60  Hz 

(b)  Line  frequency  = 30  Hz 

(c)  Line  frequency  = 15  Hz 

(6)  ILIMIT 

(a)  Motor  speed,  torque  and  current  vs.  time. 

(b)  Test  description 

(1)  Motor  reverse  from  -60  Hz  to  60  Hz  @ T = 0 

(2)  Load  torque  increased  step  wise  to  exceed  I 
limit  @ T = 125 

(3)  Load  torque  increased  further  (time  ramp) 

§ T = 300 

(c)  Controller  configuration 

(1)  ILIMIT  = .F.  ILIMIT  subroutine  bypassed 

(2)  ILIMIT  = 50  to  100  AMPS  ILIMIT  subroutine 

utilized 

(d)  Results 

(1)  Reversing  current  undisturbed  by  ILIMIT  subroutine 

(2)  ILIMIT  subroutine  successfully  limits  motor 
current. 

(7)  Slip  Control 

(a)  Motor  torque,  volts,  current  and  PF  vs  time. 

(b)  Test  description 

(1)  Normal  load  torque  @ T = 0 

(2)  Incrementally  reduces  load  torque  @ T = 25 

(c)  Controller  configuration 

(1)  Slip  Control  = .F.  - slip  control  subroutine 
bypassed. 

(2)  Slip  Control  = .T.  - slip  control  subroutine 
utilized. 
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LOAD  X 


# (SCSIGN  ADDR  +1 ) 
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FIGURE  8.  FC  HYSTERESIS. 
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INITIALIZE  SUBROUTINE  PARAMETERS 


FIGURE  9.  ADJ  FCREG,  DETERMINE  PC  & PH. 


mp 


FIGURE  10.  SLIPC. 
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PW  =*  f(B+) 


LOAD  A = B+ 


LOAD  B * 100V  - C8. 


B+  < 100V 


SCALE  1/2V  * 1 BIT 
.-.100V  = 1100  1000  = C8. 


COMPARE  A - B 


B+  i 1 00V 


JSR  TO  DIVIDE  SUBROUTINE 


FIGURE  11.  ADJUST  PW  FOR  B [100V  TO  123V  RANGE] 
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CALCULATE 

FCINTR 

* FC  * 

32 

FCREM 

= FC  * 

32/256 

FCDEL 

= FC  * 

10 

B = FCREG 


1 

.1 

» C0UNT/320jxs 

• 

= COUNT/  100/is 

r 

PWGEN  CAUSES  MISS 
OF  1 INTERRUPT  * 


2 DEC  FCCNT 


FCREG  * RCREG  + FCINTR 


FCREG  » FCREG  + FCINTR 


‘CARRY  IN  PREVIOUS 
OPERATION  COULD  CAUSE 
FCREG  TO  BE  NEGATIVE 


FIGURE  13.  FC  POINTER  SR. 
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NOTE:  THE  PROGRAM  WILL 
STAY  IN  A TIGHT  LOOP 
UNTIL  AN  INTERRUPT  XFR 
CONTROL  TO  INNER  LOOP. 

AT  THE  END  OF  INNER  LOOP 
ZERO  « 1 SO  WHEN  PROGRAM 
RETURNS  FROM  INTERRUPT 
IT  WILL  BE  ABLE  TO  PROCEED 
TO  NEXT  STEP. 


FIGURE  15.  TRANSFER  INFORMATION 
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1)  NUMERATOR  IN  B 

2)  DENOMINATOR  IN  A 

3)  NUMERATOR  < DENOMINATOR 

4)  STORE  DENOMINATOR  IN  MEMORY 

5)  FORM  RESULT  IN  A 


FIGURE  16.  DIVIDE  SUBROUTINE. 
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MULTIPLICAND  -►  A 


FIGURE  17.  MULTIPLY  SUBROUTINE. 


INTERRUPT  VECTOR 
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START  OF  INNER  LOOP 


SHORT  PW  GEN 


PHASE  GENERATOR 


ZERO  = 1 


RETURN  TO  OUTER  LOOP 


PW 

GENERATION 


GENERATOR 


FIGURE  18.  OVERVIEW  OF  INNER  LOOP. 
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FROM  FC  GENERATOR 


FIGURE  20.  INNER  LOOP  2. 


FC 

GENERATOR 


FIGURE  21.  INNER  LOOP  3. 
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PHASE  GENERATOR 


STORE  PHASE 


INDICATES  RETURN 
FROM  INNER  LOOP 


RETURN  TO  OUTER  LOOP 


FIGURE  22.  INNER  LOOP  4. 
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Figure  23. 


Sums  the 
effects  of 
the  fourier 
components 
of  Torque, 
current,  etc. 


MOTORZ 
Motor  Model 


MODEL  PROGRAM  BLOCK  DIAGRAM? 
SIMULATION  PROGRAM  FLOW 
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OS/360  FORTRAN  H EXTENDEO 


DATE  78.030/12 


OPTIONS  IN  EFFECT:  NAME(MAIN)  NOOPTIMIZE  LINECOUNTt 60 ) SIZE(.tAX)  AUTOOBLI NONE ) 

SOURCE  EBCDIC  NOLIST  NODECK  OBJECT  MAP  NOFORMAT  G03TMT  XREF  NOALC  NOANSF  NOTERM 


% 

l’ 
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C 

TEST  TEST  TEST  TEST  TEST 

00000010 

c 

SIMULATION  — FORTRAN 

00000020 

c 

MICROPROSSER  //  MOTOR  CONTROLLER 

00000030 

c 

00000040 

c 

MC77SIM.FORT  TEST 

00000050 

c 

TEST 

00000060 

c 
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00000070 

c 
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00000060 

c 

INITIAL  CONDITIONS 

00000090 

c 

00000100 

c 
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c 

00000120 
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c 
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c 
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REAL  KG.J.STCTQ 
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c 
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INTEGER  SC,TAC,FC,PC,PW 

00000200 
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REAL  11 >12  > VB>F  >TCRQ>  PF  > ROTOR L. TIME  >DT > VI > V5> V7> Vll > V13  > 
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ISN  0007 
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c 
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c 
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00000290 

c 

00000300 

ISN  0010 

COMMON  /THREE/  KG>J>STCTQ 

00000310 

c 

00000320 

ISN  0011 

FOUR(A)=A«4.+.01 

00000330 

ISN  0012 

FOURN(B)=B<4.-.01 

00000340 

c 

00000350 

c 

FIXED  DATA 

00000360 

ISN  0013 

DZLO-FOUR(  7.5) 

00000370 

ISN  0014 

OZHIrFOUR(  8 ) 

00000380 

ISN  0015 

TLL1L0=F0UR(  2.5) 

00000390 

ISN  0016 

TLL1HI=F0UR( 3 ) 

00000400 

ISN  0017 

TLL2LO=FOUR( 10 ) 

00000410 

ISN  0018 

TLL2HI=FOUR( 11 ) 

00000420 

ISN  0019 

DLTADN-FOURt  7.5 ) 

00000430 

ISN  0020 

DLTAUP=F0UR<7.5) 

00000440 

ISN  0021 

ENDRYl-FOURt  45 ) 

00000450 

ISN  0022 

BNDRY2-FOUR( 30 ) 

00000460 

ISN  0023 

BNDRY4=FOUR(10.  ) 

00000470 

ISN  0024 

BNDRY8-F0UR( 7.25) 

00000480 

ISN  0025 

HYST=F0UR(1. ) 

00000490 

ISN  0026 

ILIMIT=FOL'R(50.  ) 

00000500 

ISN  0027 

IMAX=FOUR( 50 . *4. /3. ) 

00000510 

ISN  0028 

SIDEAL-FOUR ( 5 . ) 

00000520 

c 

00000530 
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MAIN 


OS/360  FORTRAN  H EXTENDED 


DATE  78.030/12 


C 

00000540 

c 

00000550 

c 

MOtOR  PARAMETERS  R OHMS.  L HENERIES 

00000560 

c 

j 

00000570 

c 

f 

00000560 

ISN 

0029 

Rl=.l£ 

00000590 

ISN 
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Ll=. 00068 

00000600 

ISN 

0031 

RMC= .003 

00000610 

ISN 

0032 

LM=.013 

00000620 

ISN 

0033 

R2= .09 

00000630 

ISN 

0034 

L2=. 00068 

00000640 

c 

00000650 

c 

00000660 

c 

LOAD  PARAMETERS 

00000670 

c 

00000680 

c 

I1=45AMP  Si  60HZ  S 5ZSLIP 

Si  V=82VOLTS 

00000690 

c 
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00000700 

c 

PDTAC=2*PI*WTAC 

00000710 

c 
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00000720 

c 
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00000730 

c 
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00000740 

c 
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00000750 

c 
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00000760 

c 

ASSUME:  TIME  CCNSTANT= . 3 

SEC 

00000770 

c 

TIMEC=J/KG 

00000780 

c 
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00000790 

c 
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00000200 

ISN 
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00000810 

ISN 

0036 

J= .0165 

00000820 

ISN 

0037 

STCTQ=. 2 

00000830 

c 

00000840 

c 

00C00S50 

ISN 

0038 

INITC=. FALSE. 

00000860 

ISN 

0039 

SKFOLD=. FALSE. 

00000670 

ISN 

0040 

SKSLIP=. FALSE. 

OOOOOCCO 

c 

00000890 

c 

00000900 

c 

MAIN  PROGRAM 

00000910 

c 

00000940 

c 

00000950 

c 

00000960 

c 

TEST  SUBROUTINES 

00000970 

c 

00000960 

ISN 

0041 

CALL  TCNTRL 

00000990 

ISN 

0042 

CALL  THRM 

00001000 

ISN 

0043 

CALL  TLOADG 

00001010 

ISN 

0044 

CALL  TMOTZ 

00001020 

ISN 

0045 

CALL  TMOTCR 

00001030 

c 

00001040 

c 

EXECUTE  MC77SIM  SIMULATION 

00001050 

c 

00001060 

ISN 

0046 
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00001070 

ISN 

0047 

DO  101  Kl=l . 10 

00001080 

ISN 

0048 

WRITE! 6, 1001) 

00001090 

ISN 

0049 

101  CONTINUE 

00001100 

c 

00001110 

c 

STEP  FUNCTIONS 

00001120 

c 

00001130 

*• 
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LEVEL 

z.z 

(SEPT 

76) 

MAIN  OS/360  FORTRAN  H EXTENDED 

DATE  78.030/12 

ISN 

0050 

DO  100  K=l,10 

00001140 

C 

00001150 

ISN 

0051 

IF  (K.EQ.l ) SKIP=. FALSE. 

00001160 

ISN 

0053 

IF  (K.EQ.2)  SKIP=.TRUE. 

00001170 

ISN 

0055 

IF  (K.EQ.3)  OLTAUP=FO:JR(  3 ) 

00001180 

ISN 

0057 

IF  (K.EQ.4)  GO  TO  100 

00001190 

ISN 

0059 

IF  (K.EQ.5)  DLTAUP=F0UR(15. ) 

00001200 

ISN 

0061 

OLTADW=DLTAUP 

00001210 

c 

00001220 

ISN 

0062 

IF  (K.LE.5JG0  TO  120 

03001230 

c 

TEST  ADJUSTED  CONDITIONS 

00001240 

ISN 

0064 

0LTAUP=F0UR(7.5) 

00001250 

ISN 

0065 

DLTADW=FOUR< 3. ) 

00001260 

ISN 

0066 

TLL2LO-FOUR(  5. ) 

00001270 

ISN 

0067 

TLL2HI=FOUR(  5.5 ) 

00001280 

c 

00001290 

ISN 

0068 

IF  (K.LE.6 )GO  TO  120 

00001300 

c 

TEST  HARMONIC  EFFECTS 

00001310 

c 

00001320 

c 

TEST  1P/C  MODE 

00001330 

ISN 

0070 

BNDRY4=F0UR(  7.5) 

00001340 

ISN 

0071 

BNDRY2:FOUR( 7.75 ) 

00001350 

ISN 

0072 

BN0PY1=F0UR<8.  ) 

00001360 

c 

TEST  2 P/C  MODE 

00001370 

ISN 

0073 

IF  (K.GE.6)  ENDRY1=FOUR(60. ) 

00001360 

c 

TEST  4P/C  MODE 

00001390 

ISN 

0075 

IF  (K.GE.9)  BNDRY2=FOUR(  59. ) 

00001400 

c 

TEST  6P/C  MODE 

00001410 

ISN 

0077 

IF  (K.GE.10)  BNDRY4=F0UR(58. ) 

00001420 

c 

00001430 

ISN 

0079 
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CONTINUE 

00001440 

c 

00001450 

ISN 
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KOLTUPZFLOAT( OLTAUP )/4 . 

00001460 

ISN 
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ISN 
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U'2NDY1=FL0AT(  EN0RY1  )/4. 
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ISN 

0033 
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ISN 
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c 

00001510 

ISN 
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00001520 

ISN 
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ISN 
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c 
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ISN 
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00001620 

ISN 
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00001630 

ISN 

0094 
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00001640 

ISN 
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00001650 

c 
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c 

INITIALIZE  CONTROL  SUBROUTINE 
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ISN 
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ISN 

0097 
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c 
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ISN  0137 

ISN  0139 
ISN  0140 
ISN  0141 
ISN  0142 

ISN  0143 
ISN  0144 
ISN  0145 

ISN  0146 
ISN  0147 


MAIN 


DO  100  1=1,250 


OS/360  FORTRAN  H EXTENDED 


IF  (1.GT.100)  SC=FOURN(-60. > 
IF  (I.GT.200)  SC=F0UR( 0. ) 

IF  (I.EQ.l)GO  TO  110 
IF  (I.EQ.lOl)GO  TO  110 
IF  (I.EQ.2011GO  TO  110 


130  CALL  LOOP( TIME >0T>VB , SC »WTAC» SKIP, INITC ) 

GO  TO  100 

110  WSC=FLOAT<  SC  1/4. 

WRITE( 6 , 1010 ) WSC , WTAC , VB  > TIME 
WRITE! 6 , 1020 ) 

1010  FORMAT  (//,1X,3HSC=,F6.2,2X,4HTAC=,F6.2,2X,3HVB=,F5.I,2X, 

1 5HTIME=,F4.2) 

1020  FORMAT  (/,1X,4X,4HTIHE,3X,4HWTAC,4X,4HT0RQ,6X,2HII,5X,3HIHZ, 

1 4X.4HV1NM .4X.4HVHNM.5X. 3HVHZ.5X. 3HEFF ,6X,2HPF ,5X, 

2 3HI1H .4X.4HFREQ .6X.2HPW ) 

GO  TO  130 


100  CONTINUE 


TEST  SLIP  CONTROL 

210  SKIP=.TRUE. 

DLTAUP=FOUR( 7.5 ) 

0LTADW=F0UR(  3. ) 

TLL2LO=FOUR(  5. ) 

TLL2HI=F0UR(  5 .5 ) 

BND3Y1=F0UR(  45 ) 

BIIDRY2=FOUR(  30 ) 

ENDRY4=FOUR(  10 . ) 

BN0RY8=F0UR(  7.25) 

DO  200  KSLIP=1 ,3 
TIME=0 . 

DT= . 01 
VB=105. 

SC=FCUR( 60 . ) 

WTAC=57. 

KG= . 055 

IF  (KSLIP.E9.2 ) SKSLIP=.TRUE. 

IF  (K5LIP.EQ.3)  SIDEAL=FOUR( 3. ) 


IDEALS=SIDEAL/4 

WRITE! 6, 1030 ) SKSLIP, IDEALS 

1030  'ORMAT  ( *1' .1X.27HTEST  SLIP  CONTROL  SKSLIP= , L1.9H  SIDEAL=,I2) 
WRITE! 6 , 1020 ) 

C INITIALIZE  CONTROL  SUBROUTINE 

INITC=.TRUE. 

CALL  LOOP! TIME >DT , VB ,SC , WTAC .SKIP .INITC ) 

INITC=. FALSE. 

C 

DO  200  ISLIP=1,100 
SC=FOUR( 60 . 1 


DATE  78.030/12. 


00001720 

00001730 

00001740 

00001750 

00001760 

00001770 

00001780 

00001790 

00001800 

00001610 

00001620 

00001830 

00001640 

00001850 

00001660 

00001870 

00001850 

00001890 

00001900 

00001910 

00001920 

00001930 

00001940 

00001950 

00001960 

00001970 

00001980 

00001990 

00002000 

00002010 

00002020 

00002030 

00002040 

00002050 

00002060 

00002070 

00002080 

00002090 

00002100 

00002110 

00002120 

00002130 

00002140 

00002150 

00002160 

00002165 

00002170 

00002171 

00002180 

00002190 

00002200 

00002210 

00002220 

00002230 

00002240 

00002250 

00002260 

00002265 
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LEVEL 

2.2 

(SEPT 

76) 

MAIN  OS/360  FORTRAN  H EXTENDED 

DATE  78.030/12 

ISN 

0148 

CALL  LOOP! TIME, DT.VB, SC, WTAC, SKIP, INITC) 

00002270 

ISM 

0149 

IF  (ISLIP.LT. 25)  GO  TO  200 

00002280 

ISN 

0151 

KG=KG-.001 

00002290 

ISN 

0152 

IF  (KG. LT. 0.0001)  KG=.001 

00002300 

ISM 

0154 

O 

o 

CM 

CONTINUE 

00002310 

C 

00002320 

C 

TEST  SC  I FOLDBACK 

00002330 

C 

00002340 

ISN 

0155 

DO  300  KFOLD-1 ,3 

00002350 

ISN 

0156 

TIME=0. 

00002360 

ISN 

0157 

DT= . 01 

00002370 

ISM 

0158 

SKSLIP=. FALSE. 

00002380 

ISN 

0159 

SC-FOUR( 60 . ) 

00002390 

ISM 

0160 

WT4C=-60. 

00002*00 

ISN 

0161 

KGZ . 055 

00002410 

ISM 

0162 

IF  (KF0LD.EQ.2)  SKFOLO= .TRUE . 

00002420 

ISN 

0164 

IF  (KFOLD.EQ. 3)  ILIMIT=FOUR( 50 . ) 

00002423 

ISN 

0166 

IF  (KFOLD.EQ.3)  IMAX=FOUR< 2 . *50 . ) 

00002426 

C 

00002430 

ISN 

0168 

WRITE  (6.1040)  SKFOLD 

00002440 

ISM 

0169 

1040 

FORMAT  ( ' 1 ' , 1X.28HTEST  SC  I FOLDBACK  SKF0LD=,L1) 

C00C245 0 

ISN 

0170 

WRITE  (6,1020) 

00C024o0 

C 

INITIALIZE  CONTROL  SUBROUTINE 

00002470 

ISN 

0171 

INITC= .TPUS . 

00002460 

ISN 

0172 

CALL  LOOP( TIME , DT , VB , SC , WTAC , SKI P , INITC ) 

00002490 

ISN 

0173 

INITC=. FALSE. 

00002500 

C 

00002510 

ISM 

0174 

DO  300  IFCLD=1 , 360 

00002520 

ISM 

0175 

IF  ( IFOLD . EQ. 125 ) KG=.075 

00002530 

ISM 

0177 

IF  (IFOLD. GE. 300)  KG=KG*.002 

00002540 

c 

0C002550 

ISN 

0179 

SC=FOUR(60. ) 

00002555 

ISN 

0180 

CALL  LCOPl TIME ,DT,VB, SC, WTAC, SKIP, INITC) 

00002560 

ISN 

0181 

300 

CONTINUE 

00002570 

ISN 

0162 

STOP 

00002580 

ISM 

0183 

END 

00002590 

*##**F  0 R T R A N CROSS  REFERENCE  LISTIN  G*»*»* 
SYM30L  INTERNAL  STATEMENT  NUMBERS 
F 0006 


I 

0099 

0100 

0102 

0104 

0106 

0108 

J 

0004 

0010 

0036 

K 

0050 

0051 

0053 

0055 

0057 

0059 

0062 

0068 

0073 

0075 

0077  0085 

DT 

0006 

0006 

0093 

0097 

0110 

0130 

0144 

0143 

0157 

0172 

0180 

FC 

0005 

'll 

0006 

12 

0006 

KG 

0004 

0010 

0035 

0134 

0151 

0151 

0152 

0152 

0161 

0175 

0177  0177 

K1  0047 

LM  0003  0009  0032 

LI  0003  0009  0030 

L2  0003  0009  0034 

PC  0005 

IPF  00C6 

PM  0005 

R1  0003  0009  0029 

R2  0003  0009  0033 
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LEVEL  2.2  (SEPT  76)  0S/360  FORTRAN  H EXTENDED  DATE  78.030/12 

REQUESTED  OPTIONS:  MAP,XREF,NAME=LOOP,OPT=0 

OPTIONS  IN  EFFECT:  NAME ( LOOP ) NOOPTIMIZE  LINECOUNTI 60 ) SIZE(MAX)  AUTODBU NONE ) 

SOURCE  EBCDIC  NOLIST  NODECK  OBJECT  MAP  NOFORMAT  GOSTMT  XREF  NOALC  NOANSF  NOTERM 


c 

00000010 

c 

00000020 

ISN 

0002 

SUBROUTINE  LOOP(TIME ,DT ,VB, SC. WTAC, SKIP, INITC ) 

00000030 

c 

00000040 

ISN 

0003 

INTEGER  SC,TAC,FC,PC,PW,I 

00000050 

ISN 

0004 

REAL  11 > 12  > V3>  F , TCRQ.PF .ROTOR L, TIME  >DT, VI , V5.V7.V11 >V13> 

00000060 

1 WTAC , STAC . RDTAC , DT , PI . N , FWOUT , PWIN , EFF , FREQ , VRMS , 

00000070 

2 V1NM , VHNM , VHPCNT , I 11 . I1H , IHPCNT , FN , VI 7 , V19 , V23 , V25 

00000080 

ISN 

0005 

LCGICAL  FCSGN. INITC, SKIP 

00000090 

c 

00000100 

ISN 

0006 

FOUR( A )=A#4. + . 01 

00000110 

ISN 

0007 

FOURN<B)=B*4.-.01 

00000120 

c 

00000130 

ISN 

0008 

IF  ( INITC ) GO  TO  105 

00000140 

ISN 

0010 

TIME=TIME*DT 

00000150 

c 

00000160 

ISN 

0011 

IF  ( SKIP )GO  TO  105 

00000170 

ISN 

0013 

FC=IABS(SC) 

00000180 

ISN 

0014 

FCSGN1 . TRUE . 

00000190 

ISN 

0015 

IF  (SC.LT.O)  FCSGN=. FALSE. 

00900200 

ISN 

0017 

FC=1 

00000210 

ISN 

0018 

PW=2560 

00000220 

ISN 

0019 

GO  TO  115 

00000230 

c 

00000240 

ISN 

0020 

105  IF  (WTAC.GE.O.)  TAC-FOUR( WTAC ) 

00000250 

ISN 

0022 

IF  (WTAC.LT.O.)  TAC=FOURN( WTAC ) 

00000260 

c 

00000270 

ISN 

0024 

I=F0UR(I1> 

00000275 

ISN 

0025 

CALL  CNTRL  ISC,TAC»FC,FCSGN,PC,PW,INITC,I,DT) 

00000280 

c 

00000290 

c 

CLEAR  COMMAND 

00000300 

ISN 

0026 

115  IF  ( FC.GT.O  )GO  TO  110 

00000310 

ISN 

0028 

V1=0. 

00000320 

ISN 

0029 

V5=0. 

00000330 

ISN 

0030 

V7=0. 

00000340 

ISN 

0031 

V11=0. 

00000350 

ISN 

0032 

V13=0. 

00000360 

ISN 

0033 

VI 7=0. 

00000370 

ISN 

0034 

V19=0 . 

00000380 

ISN 

0035 

V23=0. 

00000390 

ISN 

0036 

V25=0. 

00000400 

ISN 

0037 

F=0. 

00000410 

ISN 

0038 

GO  TO  120 

00000420 

c 

00000430 

ISN 

0039 

110  F=FLOAT(FC)/4. 

00000440 

c 

00000450 

ISN 

0040 

CALL  HRMNIC  ( F , PC , PW, VB, VI , V5 , V7, Vll ,V13, V17.V19, V23.V25 ) 

00000460 

c 

00000470 

ISN 

0041 

120  STAC=WTAC 

00000430 

ISN 

0042 

IF  ( ,NOT.FCSGN)STAC=STAC«(-l. ) 

00000490 

c 

00000500 

ISN 

0044 

CALL  MOTOR  ( V1,V5,V7,V11,V13,V17,V19,V23,V25, 

00000510 

1 F i STAC >11 >12  >TORQt ROTOR L > PF  t 111 >I1H ) 

00000520 

A- 8 
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LEVEL 

2.2  (SEPT  76)  LOOP  OS/360  FORTRAN  H 

EXTENDED  DATE  78.030/12 

c 

00000530 

ISN 

0045 

IF  ( .NOT.FCSSN)TORQ=TORQ*<-l. 1 

00000540 

c 

00000550 

ISN 

0047 

PI=3.1416 

00000550 

ISM 

0048 

RDTAC=2*PI«WTAC 

00000570 

c 

00000560 

ISM 

0049 

CALL  LOADG  I TORQ,RDTAC,DT ) 

00000590 

c 

00000600 

ISM 

0050 

WTAC=RDTAC/I2*PI) 

00000610 

c 

00000620 

ISN 

0051 

PWOUT=TORQ*RDTAC 

00000630 

ISM 

0052 

VRMS=SQRT( V1**2*V5**2*V7**2+V11**2+V13**2 

00000640 

1 +V17**2+V19##2»V23**2+V25**2) 

00000650 

ISN 

0053 

PWIN=3*I1*VRMS*PF 

00000660 

ISN 

0054 

EFF=0. 

00000670 

ISM 

0055 

IF  (ABS(PWIN).GT.O. ) EFF=( PWOUT/PWIN 1*100 . 

00000680 

c 

00000690 

ISM 

0057 

FREQ=F 

00000700 

ISN 

0058 

IF  t.NOT.FCSGN)  FREQ=F*(-1.) 

00000710 

c 

00000720 

ISN 

0060 

FN=F 

00000730 

ISN 

0061 

IF  (FN.LT.0.01)  FM= .01 

00000740 

ISM 

0063 

V1NM=V1*60./FN 

00000750 

ISN 

0064 

VHNM=(SqRT(V5**2*V7**2mi**2+V13**2t 

00000760 

1 V17**2+V19**2+V23**2*V25**2 ) 1*60 ./FN 

00000770 

ISN 

0C65 

IF  (V1NM.LT.0.1)  V1NM=.1 

000007SO 

ISN 

0067 

VHPCNT= ( VHNM/V1NM 1*100. 

00000790 

ISN 

0068 

IF  (111. LT. 0.11  Ill=.l 

00000000 

ISN 

0070 

IHPCNT=(I1H/I11 1*100. 

00000810 

c 

00000820 

ISM 

0071 

WRITE!  6 >1001 1 TIME  >WTACiTORQ» 11 » IHPCNT » V1NM, VHNMt VHPCNT  »EFF » PF  » 

00000830 

1 IIH.FREQ.PH 

00000840 

ISN 

0072 

NRITE( 14 , 1 002 1 TIME , WTAC , TORQ , 11 , IHPCNT , V1MM » VHNM , VHPCNT , EFF , PF , 

00000850 

1 FREQ 

00000860 

ISN 

0073 

1001  FORMAT  ( 1X.12F8. 2 > 18) 

00000870 

ISN 

0074 

1002  FORMAT  ( 8F8 .2 , F4. 0 ,F4. 2 , F4. 0 ) 

00000880 

C 

00000890 

ISN 

0075 

RETURN 

0C000500 

ISN 

0076 

END 

00000910 

***«*F  ORTRAN  CROSS  REF 

ERENCE  LIST 

I N G***** 

SYMBOL 
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F 

0004 

0037 

0039  0040  0044  0057  0058  0060 
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0003 

0024 

0025 

M 

0004 

"dt 

0002 
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0004  0010  0025  0049 

FC 

0003 

0013 

0025  0026  0039 

FN 

0004 

0060 

0061  0061  0063  0064 

11 

0004 

0024 

0044  0053  0071  0072 

12 

0C04 

0044 

FC 

0003 

0017 

0025  0040 

PF 

0004 

0044 

0053  0071  0072 

PI 

0004 

0047 

0048  0050 

Ifm 

0003 

0018 

0025  0040  0071 

SC 

0002 

0003 

0013  0015  0025 

VB 

0002 

0004 

0040 

VI 

0004 

0028 

0040  0044  0052  0063 
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LEVEL  2.2  (SEPT  76) 

REQUESTED  OPTIONS:  MAP.XREF ,NAME=CNTRL,OPT=0 


OS/360  FORTRAN  H EXTENDED 


DATE  76. 030/12 


OPTIONS  IN  EFFECT:  NAME(CNTRL)  NOOPTIMIZE  LINECOUNTI 60 ) SIZECMAX)  AUTODBLI NONE > 

SOURCE  EBCDIC  NOLIST  NODECK  OBJECT  HAP  NOFORMAT  GOSTMT  XREF  NOALC  NOANSF  NOTERh 


C 

00000010 

c 

00000020 

c 

00000030 

ISN  0002 

SUBROUTINE  CNTRL  < SC .TAC.FC, FCSGN, PC ,PW, INITC , I ,DT ) 

00000040 

c 

SET  CONDITIONS 

00000050 

\ 

c 

00000060 

Si 

c 

00000070 

ISN  0003 

INTEGER  SC ,TAC ,DZ,TLL1 ,TLL2  >BN0RY iDLTF  >FC  > PC iFW>SCTAC> 

00000080 

1 I, ILIMIT.IMAX, SCFOLD, SIDEAL.SLTIME .OSCTAC.INCFLD 

00000090 

ISN  0004 

LOGICAL  SCSGN . TACSGN . DSGN , FCSGN , SLIPC , INITC , 

00000100 

ft- 

1 SKSLIP , SKFOLD 

00000110 

ISN  0005 

REAL  ITIME.DT, SCALE, SLIPN.SLIPSR.HYSTM 

00000120 

c 

00000130 

c 

00000140 

f”- 

c 

00000150 

c 

MOTOR  CONTROLLER  FIXED  DATA 

00000160 

• L ISN  0006 

INTEGER  DZL0,DZHI,TLL1L0,TLL1HI,TLL2L0,TLL2HI >DLTADW iDLTAUP , 

00000170 

1 BNDRY1 ,BNDRY2 ,ENDRY4,BNDRY8 ,HYST 

00000180 

ISN  0007 

COMk5n  /ONE/  DZLOiDZHI ,TLL1L0,TLL1HI > TLL2L0 , TLL2HI , 

0C000190 

1 D LTADW , 0 LTAUP . BN'DRYl , BNDRY2.BN0RY4, BNDRY8 , HYST , 

00000200 

2 SKFOLD, SKSLIP, ILIMIT.IMAX.SIDEAL 

00000210 

c 

00000220 

ISN  0008 

FOUR(A)=A*4.*.01 

00000230 

c 

0C000240 

c 

INITIAL  CONDITIONS 

00000250 

ISN  0009 

IF  ( .NOT. INITC )GO  TO  185 

00000260 

ISN  0011 

DZ=DZHI 

00000270 

ISN  0012 

TLL1=TLL1HI 

00000260 

ISN  0013 

TLL2=TLL2LO 

00000290 

ISN  0014 

ITIME=0 . 

00000300 

ISU  0015 

HYSTM^l . 

00000310 

ISN  0016 

INCFLD=0 

00000320 

ISN  0017 

SCALE=0. 

00000330 

ISN  0018 

SLTIME-0 

00000340 

ISN  0019 

SLIFN=1. 

00000350 

ISN  0020 

GO  TO  500 

00000360 

c 

00000370 

c 

00000380 

c 

DETERMINE  MAGITUDES  & SIGNS  OF  SC  & TAC 

00000390 

ISN  0021 

185  M3C=IAE.S(SC) 

0000C400 

ISN  0022 

SCSGN= . TRUE . 

00000410 

ISN  0023 

MTAC=IABS( TAC ) 

00000420 

ISN  0024 

TACSGN=.TRUE. 

00000430 

ISN  0025 

IF  (SC.LT.O)  SCSGN=. FALSE. 

00000440 

ISN  0027 

IF  (TAC.LT.O)  TACSGN=. FALSE. 

00000450 

c 

00000460 

c 

SC  I FOLDBACK  ROUTINE 

00000470 

c 

00000480 

ISN  0029 

IF  < .NOT. SKFOLD)  GO  TO  420 

00000490 

Z ISN  0031 

IF  (INCFLD.GT.O)  GO  TO  440 

00000500 

ISN  0033 

IF  (I.GE.ILIMIT)  GO  TO  410 

00000510 

ISN  0035 

ITIME=ITIME-DT 

00000520 

ISN  0036 

IF  ( ITIME.GT.HYSTM)  GO  TO  450 

00000530 

A-10 


S' 

% 

f 3r- 

»- 

ft,- 


LEVEL 

2.2 

(SEPT 
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CNTRL  OS/360  FORTRAN  H EXTENOED 

DATE  78.030/12 

ISN 

0038 

IF  (ITIME.LT. 0. ) ITIME=0 . 

00000540 

ISN 

0040 

HYSTH-1 . 

00000550 

ISN 

0041 

GO  TO  420 

00000560 

ISN 

0042 

410 

ITIME=ITIME+OT 

00000570 

ISN 

0043 

IF  (ITIME.GE.2.0)  ITIME=2.0 

00000580 

ISN 

0045 

IF  (ITIME.LT.HYSTM)  GO  TO  420 

00000590 

ISN 

0047 

HYSTM= . 5 

00000600 

ISN 

0048 

INCFLD=5 

00000610 

ISN 

0049 

450 

SCALE=SCALE+( ( FLOAT! I-ILIMIT)/FLOAT(  IMAX-ILIMIT ) l-SCALE  )/8. 

00000620 

ISN 

0050 

440 

SCFOLD- FOL'Rl  60 . *(  1-SCALE  ) ) 

00000630 

ISN 

0051 

INCFLD=INCFLO-l 

00000640 

ISN 

0052 

IF  ( INCFLO.LT. 0)  INCFLD=0 

00000650 

ISN 

0054 

IF  ( SCFOLD. LT.O)  SCFOLD=0 

00000660 

ISN 

0056 

IF  (SCFOLD. GT. FCURI60. ))  SCFOLO=FOUR( 60 . ) 

00000670 

ISN 

0058 

IF  (MSC.GT. SCFOLD)  MSC=SCFOLD 

00000680 

ISN 

0060 

GO  TO  430 

00000690 

ISN 

0061 

420 

SCALE -SCALE/8. 

00000700 

ISN 

0062 

430 

CONTINUE 

00000710 

C 

00000720 

C 

00000730 

C 

PERFORM  SET  CONDITIONS  ROUTINE 

00000740 

C 

00000750 

ISN 

0063 

SLIPC=. FALSE. 

00000760 

ISN 

0064 

FCSGN=SCSGN 

00000770 

C 

00000780 

C 

00000750 

ISN 

0065 

IF  (MSC.LT.DZ)GO  TO  100 

00000300 

C 

00000310 

C 

SC  .GE.  DZ 

00000820 

ISN 

0067 

101 

DZrDZLO 

00000830 

ISN 

0063 

IF  (MTAC.  LT.TLH  )GO  TO  110 

00000640 

C 

00000850 

C 

SC  .GE.  DZ  t,  MOTOR  RUNNING 

00000360 

ISN 

0070 

102 

TU1=TLL1L0 

00000870 

ISN 

0071 

DSGN= ( SCSC-N . AND . TACSGN ) . OR . ( ( . NOT . SCSGN ) . AND . 1 

: .NOT. TACSGN)) 

ooooceso 

ISN 

0072 

IF  ( .NOT .DSGN )GO  TO  120 

00000850 

C 

00000900 

c 

TACSGN=SCSGN 

00000910 

ISN 

0074 

103 

SCTAC=MSC-MTAC 

00000920 

ISN 

0075 

IF  (SCTAC.LT.O)GO  TO  130 

00000930 

c 

00000940 

c 

SC  .GE.  TAC 

00000950 

ISN 

0077 

104 

IF  ( MSC . LE . ( MTAC+DLTAUP ) )GO  TO  170 

00000960 

c 

00000970 

c 

MOTOR  ACCELERATING 

00000930 

ISN 

0079 

105 

FC=MTAC+DLTAUP 

00000990 

ISN 

0080 

GO  TO  190 

00001000 

c 

00001010 

c 

TAC  .GT.  SC 

00001020 

ISN 

0081 

130 

IF  ( MSC . LT. ( MTAC-DLTADW ) )GO  TO  165 

00001030 

c 

00001C40 

c 

MOTOR  SLOWING  OCWN,  TAC  CLOSE  TO  SC 

00001C50 

ISN 

0083 

135 

FC-MSC 

00001060 

ISN 

0084 

GO  TO  190 

00001070 

c 

00001C80 

c 

SIGNS  DIFFERENT 

00001090 

ISN 

0085 

120 

IF  (MTAC.GE.TLL2 )GO  TO  140 

00001100 

c oooomo 
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'«• 

iV* 

ts. 

■ -T 


C 

REVERSE  MOTOR 

00001120 

ISN 

0087 

150 

TLL2=TLL2HI 

00001130 

ISN 

0088 

FC=EN0RY8 

00001140 

ISN 

0089 

GO  TO  190 

00001150 

c 

00001160 

c 

MOTOR  START  COMMAND 

00001170 

ISN 

0090 

110 

TLL1=TLL1HI 

00001180 

ISN 

0091 

FC=BN0RY8+MTAC 

00001190 

ISN 

0092 

GO  TO  190 

00001200 

c 

00001210 

c 

MOTOR  STOPING  OR  REVERSING 

00001220 

ISN 

0093 

140 

TLL2=TLL2LO 

00001230 

ISN 

0094 

FCSGN-TACSSN 

00001240 

ISN 

0095 

FC=MTAC-DLTADN 

00001250 

ISN 

0096 

SLIPC=. FALSE. 

00001260 

ISN 

0097 

GO  TO  190 

00001270 

c 

00001280 

c 

MOTOR  SLOWING  DOWN 

00001290 

ISN 

0098 

165 

FC=MTAC-DLTADW 

00001300 

ISN 

0099 

SLIPC- .FALSE . 

00001310 

ISN 

0100 

FCSGM-SCSSN 

00001320 

ISN 

0101 

GO  TO  190 

00001330 

c 

00001340 

c 

SC  .LT.  DZ 

00001350 

ISN 

0102 

100 

DZ-DZHI 

00001360 

ISN 

01C3 

IF  ( MTAC.GE .TLL2 ) GO  TO 

140 

00001370 

c 

000013SO 

c 

ISSUE  CLEAR  COMMAND 

00001390 

ISN 

0105 

TLL2=TLL2HI 

00001400 

ISN 

0106 

GO  TO  500 

00001410 

c 

00001420 

c 

MOTOR  CLOSE  TO  OR  AT 

SPEED  COMMAND 

00001430 

ISN 

0107 

170 

FC-HSC 

00001440 

c 

00001450 

c 

SLIPC=. FALSE.  MEANS  SKIP  SLIP  CONTROL  ROUTINE 

00001460 

ISN 

0108 

SLIPC- .TRUE . 

00001470 

ISN 

0109 

190 

CONTINUE 

00001430 

c 

00001490 

c 

00001500 

c 

00001510 

c 

FC  HYSTERISIS 

00001520 

ISN 

0110 

IF  ( PC . GT .8  ISO  TO  220 

00001530 

ISN 

0112 

GO  TO( 231, 232, 220, 234, 220, 220, 220, 238), PC 

00001540 

ISN 

0113 

220 

WRITE  (6,2000) 

00001550 

ISN 

0114 

2000 

FORMAT  (1X,9H  ERROR  PC) 

00001560 

c 

NOTE:  MULT  NOT  PRESENTLY  USED 

00001570 

c 

00001580 

ISN 

0115 

231 

BNDRY^BNQRYl 

00001590 

ISN 

0116 

MULT=1 

00001600 

ISN 

0117 

GO  TO  240 

00001610 

c 

00001620 

ISN 

0118 

232 

BNDRY=BNDRY2 

00001630 

ISN 

0119 

MULT=2 

00001640 

ISN 

0120 

GO  TO  240 

00001650 

c 

00001660 

ISN 

0121 

234 

BNDRY=BNDRY4 

00001670 

ISN 

0122 

MULT=4 

00001680 

ISN 

0123 

GO  TO  240 

00001690 

A-12 
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LEVEL  2.2 

(SEPT 

76) 

CNTRL  OS/360  FORTRAN  H EXTENDED 

DATE  78.030/12 

it 

K 

C 

00001700 

'•HV 

ISN  0124 

238 

BNCRY=BNDRY8 

00001710 

ISN  0125 

tlULT^S 

00001720 

C 

00001730 

f 3L  i 

ISN  0126 

240 

OLTF-FC-GNDRY 

00001740 

ISN  0127 

IF  IDLTF . GE  . 0 )GO  TO  250 

00001750 

ISN  0129 

IF  (DLTF.LT.(-HYST) )GO  TO  250 

00001760 

F M. 

ISN  0131 

FC-ENDRY 

00001770 

ISN  0132 

250 

CONTINUE 

00001780 

$ \ 

C 

00001790 

l •** 

C 

00001600 

c 

DETERMINE  #P/C  SMAX  PM 

UC001810 

ISN  0133 

IF  ( FC . GE . BNDRY1 )GO  TO  310 

00001620 

ISN  0135 

IF  ( FC .GE .BNDRY2 )GO  TO  320 

00001830 

ISN  0137 

IF  ( FC .GE .6NDRY4 )GO  TO  330 

00001840 

B t 

c 

00001850 

c 

8 PULSE  MODE 

00001C60 

t »' 

ISN  0139 

PC=8 

00001870 

r • ■ 

ISN  0140 

PN=320 

00001C30 

ISN  0141 

GO  TO  350 

00001890 

I 4- 

c 

00001900 

c 

1 PULSE  MODE 

00001910 

ISN  0142 

310 

PC=1 

00001920 

ISN  0143 

PW=2560 

00001930 

ISN  0144 

GO  TO  350 

000019*0 

c 

00 001950 

c 

2 PULSE  MODE 

00001960 

ISN  0145 

320 

PC=2 

00001970 

ISN  0146 

FW=1280 

0C001930 

ISN  0147 

GO  TO  350 

000C1C’0 

. 

c 

00CG2CF 0 

c 

4 PULSE  MODE 

0000201 0 

ISN  0148 

330 

PC =4 

00002020 

ISN  0149 

PW=640 

00002070 

ISN  0150 

350 

CONTINUE 

00002040 

I- 

c 

00002060 

c 

CORRECT  FOR  DLTF 

GC002060 

K * 

ISN  0151 

IF  (DLTF.GE.O)GO  TO  370 

orocoOTO 

ISN  0153 

IF  (DLTF.LT.(-HYST) >GO  TO  370 

00002:00 

ISN  0155 

FC=FC+DLTF 

00002C°0 

ISN  0156 

370 

CONTINUE 

00002100 

c 

00002110 

c 

SLIP  CONTROL 

00002120 

c 

00002130 

ISN  0157 

IF  ( .NOT.S^SLIP)  GO  TO  610 

00002140 

ISN  0159 

IF  (.NOT.SLIPC)  GO  TO  610 

00002150 

ISN  C 16 1 

IF  (SCT/C.LT.SIDEAL)  GO  TO  620 

00002160 

ISN  0163 

SLIFN-SLIFN+l 1-SLIPN )/2 . 

00C021'0 

ISN  0164 

GO  TO  630 

orcroiso 

ISN  0165 

610 

SLIFN=1. 

0CC02190 

ISN  0166 

GO  TO  510 

OOOO-'SCO 

ISN  0167 

620 

SLTIME=SLTIME*1 

002CC210 

c 

IF  (SLTIME.LE.3)  GO  TO  630 

00222280 

ISN  0168 

SLTII1E  = 0 

00002230 

Z ISN  0169 

SLIFN=SLIFN+( ( FLOATt  SCTAC )/FLOAT( SIDEAL ) J-SLIPN )/4. 

000022'. 0 

ISN  0170 

630 

CONTINUE 

02002250 

ISN  0171 

IF  ( SLIFN.GT. 1.0)  SLIPN=1.0 

00002260 

ISN  0173 

IF  (5LIPN. LT.0.0 ) SLIFN=0.0 

0C002270 

hv  I I 

: 

Me  i i 


L A 

LEVEL 

2.2  (SEPT  76 > 

CNTRL 

03/ 360  FORTRAN 

H EXTENDED 

DATE  78.030/1 

it 

c 

CALCULATE  MODIFIED 

SQUARE  ROOT 

00002280 

m 

ISN 

0175 

IF 

(SLIPN 

GE.O. 

5)  SLIPSR=( SLIPN/2 

)♦  .5 

00002290 

4 

ISN 

0177 

IF 

(SLIFN 

LT.O. 

5)  SLIFSR-S 

LIPN* . 25 

00002300 

, : 

ISN 

0179 

IF 

(SLIFN 

LT.O. 

25)  SLIPSR=SLIPN»2 

00002310 

tjR' 

ISN 

oiei 

FW= 

PW*SLIPSR 

00002320 

ISN 

0162 

c 

GO 

TO  510 

00002350 

00002360 

P ~v* 

i -. 

c 

CLEAR  CONDITIONS 

00002370 

ISN 

0183 

500  FC= 

0 

00002380 

l rTs* 

ISN 

0184 

PC  = 

8 

00002390 

1 % 

ISN 

0165 

PU= 

320 

00002400 

F * 

ISN 

0166 

FCSGN: . TRUE . 

00002410 

ISN 

0187 

SLIPN=1. 

00002420 

C 

00002430 

ISN 

0188 

510  RETURN 

00002440 

t ► 

r *• 

ISN 

0189 

END 

00002450 

O 
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SYMBOL 

INTERNAL  STATEMENT  NUMBERS 

B "* 

I 

0002 

0003 

0033 

0049 

a ‘|^ 

OT 

0002 

0005 

0035 

0042 

D Z 

0003 

0011 

0065 

0067 

0102 

FC 

0002 

0003 

0079 

0C63 

0088 

0091 

0095 

0098 

0107 

0126 

0131 

0133  0135 

0137  0155 

PC 

0002 

0003 

0110 

0112 

0139 

0142 

0145 

0148 

0184 

FN 

0002 

0003 

0140 

0143 

0146 

0149 

0181 

0181 

0185 

SC 

0002 

0003 

0021 

0025 

liSC 

0021 

0058 

0058 

0065 

0074 

0077 

0081 

0083 

0107 

TAC 

0002 

0003 

0023 

0027 

DLTF 

0003 

0126 

0127 

0129 

0151 

0153 

0155 

DSGN 

0004 

0071 

0072 

DZHI 

0006 

0007 

0011 

0102 

[ ■ 

DZLO 

0006 

0007 

0067 

FOUR 

0008 

0050 

0056 

0056 

HYST 

0006 

0007 

0129 

0153 

IABS 

0021 

0023 

* 

IMAX 

0003 

0007 

0049 

k 

MTAC 

0023 

0068 

0074 

0077 

0079 

0081 

0085 

0091 

0095 

0098 

0103 

• 

MULT 

0116 

0119 

0122 

0125 

TLL1 

0003 

0012 

0068 

0070 

0090 

TLL2 

0003 

0013 

0085 

0087 

0093 

0103 

0105 

BNDRY 

0003 

0115 

0118 

0121 

0124 

0126 

0131 

CNTRL 

0002 

FCS3N 

0002 

0004 

0064 

0094 

0100 

0186 

E 

FLOAT 

0049 

0049 

0169 

0169 

HYSTM 

0005 

0015 

0036 

0040 

0045 

0047 

l 

"INITC 

0002 

0004 

0009 

ITIME 

0005 

0014 

0035 

0035 

0036 

0038 

0038 

0042 

0042 

0043 

0043 

0045 

I 

SCALE 

0005 

0017 

0049 

0049 

0049 

0050 

0061 

0061 

SCSGN 

0004 

0022 

0025 

0064 

0071 

0071 

0100 

SCTAC 

0003 

0074 

0075 

0161 

0169 

SLIPC 

0004 

0063 

0096 

0099 

0103 

0159 

SLIPN 

0005 

0019 

0163 

0163 

0163 

0165 

0169 

0169 

0169 

0171 

0171 

0173  0173 

0175  0175 

0187 

-BNDRY1 

0006 

0007 

0115 

0133 

EN0RY2 

0006 

0007 

one 

0135 

BN0RY<* 

0006 

0007 

0121 

0137 

BN0RY8 

0006 

0007 

0088 

0091 

0124 

.it' -w: 
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LEVEL  2.2  (SEPT  76) 


OS/ 360  FORTRAN  H EXTENDED 


OATE  76.030/12 


REQUESTED  OPTIONS:  MAP.XREF ,NAME=HRMNIC,OPT=0 


OPTIONS  IN  EFFECT.-  NAME(HRMNIC)  NOOPTIMIZE  LINECOUNTt 60 ) SIZE(MAX)  AUTOOBLI  NONE  I 

SOURCE  EBCDIC  NOLIST  NODECK  OBJECT  MAP  NOFORMAT  GOSTMT  XREF  NOALC  NOANSF  NOTERM 


C 

00000010 

c 

00000020 

c 

00000030 

ISN 

0002 

SUBROUTINE  HRMNIC  ( F ,PC ,PW, VB, VI , V5, V7 , Vll , V13, V17, V19, V23, V25 > 

00000040 

ISN 

0003 

INTEGER  PC,PW 

00000050 

ISN 

0004 

REAL  V1,V5,V7,V11,V13,V17,V19,V23,V25,F,DTR,DLTA,VK,VB,SUMA, 

00000060 

3 

L PERIOD. PCMOD 

00000070 

c 

00000080 

ISN 

0005 

PER 100=10000 00 . /( 6 . #F ) 

00000090 

ISN 

0006 

PCMOQ=l PC*PW (/PERIOD 

00000100 

ISN 

0007 

DTR=3. 1416/160. 

00000110 

ISN 

0003 

0 LTA=6  0 . * ( 1 . - FCMOQ )/( 2 . «PC ) 

00000120 

ISN 

0009 

VK=4.#VB/( 3. 1416*1 .4142 ) 

00000130 

c 

CALCULATE  FOR  EACH  HARMONIC 

00000140 

ISN 

0010 

DO  110  N=1 > 25 . 2 

00000150 

ISN 

0011 

IF  (N.EQ.31G0  TO  110 

00000160 

ISN 

0013 

IF  (N.EQ.91GO  TO  110 

00000170 

ISN 

0015 

IF  (N.EQ.151G0  TO  110 

00000180 

ISN 

0017 

IF  (N.EQ.211GO  TO  110 

00000190 

ISN 

0019 

SUMA=0. 

00000200 

ISN 

0020 

00  120  J=1,PC,1 

00000210 

ISN 

0021 

ANSLEP=<  30  + U-l  )*60/PC+DLTA  )*N 

00000220 

ISN 

0022 

ANGLEM=(30+J«60/PC-0LTA)*N 

00000230 

ISN 

0023 

SUHA=COS<  ANGLEP*DTB)-COS( ANGLEM*DTR )+SUMA 

00000240 

ISN 

0024 

120 

CONTINUE 

00000250 

ISN 

0025 

GO  TO  (131,110,110,110,132,110,133,110,110,110,134,110,135, 

00000260 

1 110,110,110,136,110,137,110,110.110,138,110,139),N 

00000270 

ISN 

0026 

131 

V1=VK*SUMA/N 

00000280 

ISN 

0027 

GO  TO  110 

00000290 

ISN 

0028 

132 

V5=VK#SUMA/N 

00000300 

ISN 

0029 

GO  TO  110 

00000310 

ISN 

0030 

133 

V7=VK*SUMA/N 

00000320 

ISN 

0031 

GO  TO  110 

00000330 

ISN 

0032 

134 

V11=VK*SUMA/N 

00000340 

ISN 

0033 

GO  TO  110 

00000350 

ISN 

0034 

135 

V13=VK*SUMA/N 

00000360 

ISN 

0035 

GO  TO  110 

00000370 

ISN 

0036 

136 

V17=VK*SUMA/N 

00000360 

ISN 

0037 

GO  TO  110 

00000390 

ISN 

0038 

137 

V19=VK«SUMA/N 

00000400 

ISN 

0039 

GO  TO  110 

00000410 

ISN 

0040 

138 

V23=VK*SUMA/N 

00000420 

ISN 

0041 

GO  TO  110 

00000430 

ISN 

0042 

139 

V25=VK*SUMA/N 

00000440 

ISN 

0043 

110 

CONTINUE 

00000450 

ISN 

0044 

RETURN 

00000460 

ISN 

0045 

END 

00000470 

. »>  «»F  0 B T 8 A N 

SYMBOL  INTERNAL  STATEMENT  NUMBERS 
F 0002  0004  0005 

J 0020  0021  0022 
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REFERENCE 
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LEVEL  2.2  (SEPT  76)  05/360  FORTRAN  H EXTENDED  DATE  78.030/12 

REQUESTED  OPTIONS:  MAP > XREF .NAME -MOTOR ,OPT-0 

OPTIONS  IN  EFFECT!  NAME(MOTOR)  N00PTIMI2E  LIHECOUNTI 60 ) SIZEIMAX)  AUTOOBLt NONE ) 

SOURCE  EBCDIC  NOLIST  NCDECK  OBJECT  MAP  NOFORMAT  SOSTMT  XREF  NOAIC  NOANSF  NOTERM 


C 

00000010 

c 

00000020 

ISN  0002 

SUBROUTINE  MOTOR  ( VI , V5, V7, Vll , V13. V17, V19, V23. V25, 

00000030 

1 F ,STAC,I1 >12  >TCRQ,ROTORL  >PF  , 111 > I1H ) 

00000040 

c 

00000050 

c 

CALCULATE  MOTOR  CURRENT  11,  TORQUE  T,  POWER  FACTOR  PF, 

00000060 

c 

KOTOR  LOSS  ROTOR L 

00000070 

c 

ooooooeo 

ISN  0003 

REAL  F, STAC, VI, V5.V7, Vll, V13, 11, 111, 115, 117, 1111, 1113, 

00000090 

1 V17,V19,V23,V25, 1117, 1119, 1123, 1125, 

00000100 

2 12, 121,125, 127, 1211, 1213, TORQ.T1 ,T5,T7, Til, T13, 

00000110 

3 1217, 1219, 1223, 1225, T17,T19,T23,T25, 

00000120 

4 ROTOR L, ROTL1 >ROTL5  >R0TL7 ,R0TL11 .R0TL13, 

00000130 

5 R0TL17.R0TL19 ,ROTL23,ROTL25 , 

00000140 

6 PF ,PF1 ,PF5 , PF7, PF11 ,PF13  > I1H , 

00000150 

7 PF17, PF19, PF23.PF25 

00000160 

c 

00000170 

c 

1ST  HARMONIC 

00000180 

ISN  0004 

N=1 

00000190 

ISN  0005 

CALL  MOTORZI VI ,N, F , 111 , 121 ,STAC ,T1 , ROT  LI , PF1 ) 

00000200 

c 

5TH  HARMONIC 

00000210 

ISN  0006 

N=5 

00000220 

ISN  0007 

CALL  M0TCRZ(V5,N,F, 115, 125, STAC, T5.R0TL5 ,PF5 ) 

00000230 

c 

7TH  HARMONIC 

00000240 

ISN  0008 

N=7 

00000250 

ISN  0009 

CALL  M0T0RZ(V7,N,F, 117, 127, STAC, T7,R0TL7,PF7) 

00000260 

c 

11TH  HARMONIC 

00000270 

ISN  0010 

N=ll 

00C00280 

ISN  0011 

CALL  MOTORZI Vll, N,F, 1111, 1211, STAC, Til, R0TL11.PF11) 

00000290 

c 

13TH  HARMONIC 

00000300 

ISN  0012 

N=13 

00000310 

ISN  0013 

CALL  MOTORZI V13.N.F, 1113, 1213, STAC, T13.R0TL13.PF13) 

00000320 

c 

17TH  HARMONIC 

00000330 

ISN  0014 

N=17 

00000340 

ISN  0015 

CALL  MOTORZI V17.N.F, 1117, 1217, STAC, T17.R0TL17.PF17) 

00000350 

c 

19TH  HARMONIC 

00000360 

ISN  0016 

N=19 

00000370 

ISN  0017 

CALL  MOTORZI V19.N.F, 1119, 1219, STAC, T19.R0TL19.PF19) 

00000380 

c 

23TH  HARMONIC 

00000390 

ISN  0018 

N-23 

00000400 

ISN  0019 

CALL  MOTORZI V23.N.F, 1123, 1223, STAC, T23.ROTL23.PF23) 

00000410 

c 

25TH  HARMONIC 

00000420 

ISN  0020 

N=25 

00000430 

ISN  0021 

CALL  MOTORZI V25.N.F, 1125, 1225. STAC, T25.R0TL25.PF25) 

00000440 

c 

00000450 

ISN  0022 

Il-SQRTI 1 111**2  HI 115**2  HI  117**2 )♦(  1111**2 HI  1113**2 ) 

00000460 

1 ♦ < 1117**2 HI  1119**2 HI 1123**2  HI  1125**2  ) ) 

00000470 

ISN  0023 

I2=SQRT(  1 121**2  HI  125**2  H< 127**2  HI  1211**2  HI 1213**2  ) 

00000480 

1 ♦ < 1217**2  HI  1219**2  HI  1223**2  HI  1225**2 ) ) 

00000490 

ISN  0024 

I1H=SQRT( 1 115**21*1 117**2  HI  1111**2 )♦( 1113**2  ) 

00000500 

1 +( 1117**2 )♦( 1119**2 )♦( 1125**2 )♦( 1125**2  ) ) 

00000510 

ISN  0025 

T0RQ=T1-T5*T7-T11*T13-T17*T19-T23*T25 

00000520 

ISN  0026 

ROTOR L:ROT LI +KOTL5+ROTL7+ROTL11*ROTL13*ROTL17*ROTL19*ROTL23*ROTL2500000530 

L 
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LEVEL 

2.2  (SEPT 

76 ) MOTOR 

OS/360  FORTRAN  H EXTENDED 

DATE  78.030/12 

ISN 

0027 

PF=PF1 

00000540 

ISN 

0028 

RETURN 

00000550 

ISN 

0029 

END 

00000560 

**»»»F  0 R T R A N CROSS  REFERENCE  IISTIN 
SYMBOL  INTERNAL  STATEMENT  NUMBERS 

F 0002  0003  0005  0007  0009  0011  0013  0015  0017  0019  0021 

N 0004  0005  0006  0007  0008  0009  0010  0011  0012  0013  0014  0015  0016  0017  0018  0 

11  0002  0003  0022 

12  0002  0003  0023 

FF  0002  0003  0027 

T1  0003  0005  0025 

T5  0003  0007  0025 

T7  0003  0009  0025 

VI  0002  0003  0005 

V5  0002  0003  0007 

V7  0002  0003  0009 

I1H  0002  0003  0024 

111  0002  0003  0005  0022 

115  0003  0007  0022  0024 

117  0003  0009  0022  0024 

121  0003  0005  0023 

125  0003  0007  0023 

127  0003  0009  0023 

PF1  0003  0005  0027 

PF5  0003  0007 

FF7  0003  0009 

Til  0003  0011  0025 

T13  0003  0013  0025 

T17  0003  0015  0025 

T19  0003  0017  0025 

T23  0003  0019  0025 

T25  0003  0021  0025 

VII  0002  0003  0011 

VI 3 0002  0003  0013 

V17  0002  0003  0015 

V19  0002  0003  0017 

V23  0002  0003  0019 

V25  0002  0003  0021 

1111  0003  0011  0022  0024 

1113  0003  0013  0022  0024 

1117  0003  0015  0022  0024 

1119  0003  0017  0022  0024 

1123  0003  0019  0022  0024 

1125  0003  0021  0022  0024 

*1211  0003  0011  0023 

1213  0003  0013  0023 

1217  0003  0015  0023 

1219  0003  0017  0023 

1223  0003  0019  0023 

1225  0003  0021  0023 

PF11  0003  0011 

PF13  0003  0013 

Iff 17  0003  0015 

PF19  0003  0017 

PF23  0003  0019 

PF25  0003  0021 
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LEVEL  2.2  (SEPT 


OS/360  FORTRAN  H EXTENDED 


DATE  76.030/12 


REQUESTED  OPTIONS:  MAP,XREF,NAME=MOTORZ,OPT=0 


OPTIONS  IN  EFFECT: 


NAME(MOTORZ)  NOOPTIMIZE  LINECOUNT(60 ) SIZE(NAXI  AUTOOBLl NONE ) 

SOURCE  EBCDIC  NOLIST  NODECK  OBJECT  NAP  NOFORNAT  GOSTMT  XREF  NOALC  NOANSF  NOTERM 


ISN  0003 
ISN  0004 
ISN  0005 


ISN  0006 

ISN  0008 

ISN  0009 
ISN  0010 


SUBROUTINE  MOTORZt  V,N,F,I1.I2. STAC , TQ , ROTL , PF  ) 

CALCULATE  MOTOR  IMPEDANCE,  CURRENT,  POWER  FACTOR, 
AND  ROTOR  LOSS  AT  EACH  HARMONIC 


R2/S<— ♦ 


REAL  R1,L1,RMC,LM,R2,L2 
COMMON  /TWO/  R1,L1,RMC,LM,R2,L2 

REAL  RM,PI,W,ZPNR,ZPNX,ZPDR,ZPDX,ZPD,RP,XP,RI,XI,ZI,Z2, 
1 TQ , SLIP, V, VP, F , ROTL, PF  > II >12 >ZP ,STAC 


ZP-ZM*Z2/(ZM+Z2) 


( RM+ JWLM )*( R2/S+JWL2 ) 


( RM+R2/S )+JW(  LM+L2 ) 


<RM*R2/S-<  LM«L2  >W**2  )+JW(  RM<*L2*LM*R2/S ) 


( ZPNR  ♦ J ZPNX  ) 


( ZPDR  + J ZPDX  ) 


( ZPDR  - J ZPDX  ) 


( ZPDR  - J ZPDX  ) 


ZPD=(ZPDR)**2  ♦ ( ZPDX  )*#2 


ZP  = RP  ♦ J XP 


IF  ( ABS( F ) . LT. . 01 ) F=.01 

12  RM=RMC*F**1.25 

PI=3.1416 

W-2«PI*N#F 


00000010 

00000020 

00000030 

00000040 

00000050 

00000060 

00000070 

00000080 

00000090 

00000100 

00000110 

00000120 

00000130 

00000140 

00000150 

00000160 

00000170 

00000180 

00000190 

00000200 

00000210 

00000220 

00000230 

00000240 

00000250 

00000260 

00000270 

00000260 

00000290 

00000300 

00000310 

00000320 

00000330 

00000340 

00000350 

00000360 

00000370 

00000380 

00000390 

00000400 

00000410 

00000420 

00000430 

00000440 

00000450 

00000460 

00000465 

00000470 

00000400 

00000490 

00000500 

00000510 

00000520 


A- 18 


LEVEL  2.2  (SEPT  761  MOTORZ  OS/360  FORTRAN  H EXTENDED  DATE  76.030/12. 


ISN 

0011 

SLIP=(N*F-STAC)/(N*F) 

00000530 

ISN 

0012 

IF  ((SLIP. LT. 0.0001  ). AND. (SLIP. GT. (-0.0001)))  SLIP=0.0001 

00000540 

C 

00000550 

ISN 

0014 

13 

ZPNR=RM-R2/SLIP-( LM*L2 )*W**2 

00000560 

ISN 

0015 

14 

ZPNX=W*(RM*L2+LM*R2/SIIP> 

00000570 

ISN 

0016 

15 

ZPDR=RM*R2/SLIP 

00000580 

ISN 

0017 

16 

ZFDX=W*(LH+L2) 

00000590 

ISN 

0018 

17 

ZFD=ZFDR**2+ZFDX**2 

00000600 

ISN 

0019 

18 

RF=( ZFNR*ZFDR4ZPNX*ZPDX l/ZPD 

00000610 

ISN 

0020 

19 

XP=( ZPNX*ZFDR-ZFKR*ZPOX l/ZFO 

00000620 

ISN 

0021 

20 

ZP=SQRT(RF**2*XP**2 ) 

00000630 

C 

00000640 

C 

ZI=Z1+ZP  =<R1*RPS  ♦ <X1*XP) 

00000650 

C 

= RI  + J XI 

00000660 

C 

00000670 

ISN 

0022 

21 

RI=R1+RP 

00000680 

ISN 

0023 

22 

XI=M*ll*XP 

00000690 

ISN 

0024 

23 

ZI=SQRT(RI**2+XI**2) 

00000700 

C 

00000710 

ISN 

0025 

24 

I1=V/ZI 

00000720 

C 

00000730 

ISN 

0026 

25 

VP=I1*ZP 

00000740 

C 

00000750 

ISN 

0027 

26 

Z2-SQRT! ( R2/SLIP )**24( W*L2 )**2 ) 

00000760 

c 

0CC00770 

ISN 

0028 

27 

I2=VP/Z2 

00000700 

c 

00000790 

c 

00000800 

c 

TORQUE  IN  NEWTON-METERS 

00000010 

ISN 

0029 

28 

TQ=3*( 12**2 )*R2/( N*SLIP ) 

00000020 

c 

00000030 

ISN 

0030 

29 

ROT L=3*R2*I 2**2 

00000040 

c 

00000050 

c 

POWER  FACTOR  PF  1ST  HARMONIC  ONLY  < REMOVE  C 

00000060 

c 

IF  (N.GT.l)GO  TO  300 

00CC0370 

ISN 

0031 

30 

PF=RI/ZI 

OOOCOOOO 

c 

00000090 

c 

300 

CONTINUE 

00000900 

c 

31 

WRITE! 6. 3336)  RM.ZFNR ,ZFNX ,ZPDR,ZFDX,ZPD ,RP,XP,ZP.RI ,XI ,ZI ,Z2 ,12 

00000910 

C3336 

FORMAT  </,lX,F9.3,F9.3,F9.3,F9.3,F9.3,F9.1,F9.3,F9.3,F9.3, 

00000920 

C 

1 

F9.3.F9.3,F9.3,F9.3,F8.1) 

00000930 

C 

00000940 

ISN 

0032 

RETURN 

00000950 

ISN 

0033 

END 

00000960 

***«*F  ORTRAN  CROSS  REFERENCE  LISTIN  G***»* 
SYMBOL  INTERNAL  STATEMENT  NUM3ERS 


F 

0002 

0005 

0006 

0006 

0008 

0010 

0011 

0011 

N 

0C02 

0010 

0011 

0011 

V 

0002 

0005 

0025 

M 

0005 

0010 

0014 

0015 

0017 

0023 

0027 

0029 

11 

0002 

0005 

0025 

0026 

12 

0002 

0005 

0028 

0029 

0030 

Ilm 

CC03 

0004 

0014 

0015 

0017 

LI 

0003 

0004 

0023 

L2 

0003 

0004 

0014 

0015 

0017 

0027 

PF 

0002 

0005 

0031 
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LEVEL  2.2  (SEPT  76) 

REQUESTED  OPTIONS:  MAP, XREF  , NAME  UOm.OPT«o 


OS/360  FORTRAN  H EXTENDED 


OATE  78.030/12.07.57 


OPTIONS  IN  EFFECT:  NAME(LOAOG)  NOCPTIMIZE  LXNECOUNTf 60 ) SIZE(MAX1  AUTOOBK NONE  ) 

SOURCE  EBCDIC  NOLIST  NCDECK  OBJECT  MAP  NOFORMAT  GOSTMT  XREF  NOALC  NOANSF  NOTERM  FLAG(  I ) 


ISN  0003 
ISN  00C4 
ISN  0005 
ISN  0007 


ISN 

0003 

RETURN 

ISN 

0009 

END 

r- 

«*« 

»««F  0 

R T R 

A N 

SYMBOL 

INTERNAL  STATEMENT  NUMBERS 

J 

0003 

0004 

0007 

0007 

DT 

0002 

C003 

0007 

0007 

K3 

0003 

00C4 

0007 

TCRQ 

0002 

0003 

0007 

LOADS 

0002 

A 

RDTAC 

00C2 

0003 

0005 

0007 

C007 

STCTQ 

0003 

0004 

0005 

0005 

0007 

NAME 

TAG 

TYPE 

ADO. 

NAME 

J 

F C 

R*4 

000004 

OT 

LOADS 

1*4 

0CC09C 

ROTAC 

SUBROUTINE  LOACS< TCRQ.POTAC.OT ) 

PCUEPsV**2/q  5UKV)**2/R>»B0TAC**2  sKG*PDTAC*»2  *T*PDTAC 
T=(  JL» JM)*R0TAC ' ♦KG#RDTAC*3TCTQ  *J*RDTAC ' *KG*ROTAC*STCTQ 
( RDTACl T*0T )-R0TAC( T ) )/DT*-( KG/J )RDTAC( T )♦( T-STCTQ  )/J 
RDTAC( T*OT  )*( 1-0T*KG/J >*ROTAC(T)*( T-STCTQ  >*OT/J 
PEAL  KG, J,DT, TCRQ, ROTAC. STCTQ 
COMMON  /THREE/KG, J.STCTQ 
I F ( ROTAC . LT . 0 . ) STCTQsSTCTQ*( -1 ) 

R0TAC= ( 1-0T#KG/J ) »ROTAC* ( TCRQ-5TCTQ )*QT/J 


00000010 

0C000020 

00000030 

00000040 

00000050 

00000060 

00000070 

00000075 

OOOOOCBO 

00000090 

00000100 


REFERENCE 


L I S T I N G«**** 


SIZE  OF  PROGRAM  00017A  HEXADECIMAL  BYTES 


TAG 


TYPE  ADD . 
R*4  00C094 

P*4  0000A0 


NAME  TAG 
KS  F C 

STCTQ  SF  C 


TYPE  ADD . 
S*4  0CC000 

R«4  030008 


NAME 

TCRQ 


TYPE  ADD . 
R*4  03009* 


NAME  OF  COMMON  BLOCK 


VAR.  NAME  TYPE  REL.  ADDR. 
KG  R*4  000000 


COMPILER  GENERATED  LABELS 


*****  COMMON  INFORMATION  ***** 

SIZE  OF  BLOCK  0Q000C  HEXADECIMAL  BYTES 


VAR.  NAME  TYPE  PEL.  ADDR. 
J R*4  000036 


VAR.  NAME  TYPE  REL.  ADDR. 
STCTQ  R*4  000008 


VAR.  NAME  TYPE  REL.  ADDR. 


LABEL  ISN  AOOR 

iooooi  z oeocca 


LABEL  ISN  ADDR 
100002  6 0C3C04 


LABEL  ISN 
7 


ADOR 

00C0F6 


LABEL  ISN  ADDR 


100003 

•OPTIONS  IN  EFFECT»NAME( LOADS)  NCOPTIMIZE  LXNECOUNTf 60 ) SIZE(MAX)  AUTCOBLf NONE ) 

•OPTIONS  IN  EFFECT*SO’JRCE  EBCDIC  NOLIST  NCDECK  OBJECT  MAP  NOFORMAT  GOSTMT  XREF  NCALC  NOANSF  MOTERM  FLAG(I) 
I "STATISTICS*  SOURCE  STATEMENTS  * 8,  PROGRAM  SIZE  * 378,  SUBPROGRAM  NAME  * LOADG 

•STATISTICS*  NO  DIAGNOSTICS  GENERATEO 


NO  CONTROLLER 
f = OHZ  TO  60HZ  STEP 


STEP  FUNCTION  « 1 

10/21/77 

I 


I » T » — I T"  t 7 — -T’  ■ T f - t "■  t 'T-f  ■ 

tj.«  o.»  o.u  o.n  o.u  o.«  o.«  o.»  c.m  o.n 

TI*  ISCC) 


m 

1 

r 

•« 

i 

NO  CONTROLLER 

i 

f = > + 60HZ  TO  - 60HZ  STEP 

i 

STEP  FUNCTION  # 1 

i 

10/21/77 

DLTAUP 

DLTADW 


STEP  FUNCTION  # 2 

10/21/7? 


DLTAUP 

DLTADW 


= 7.5HZ 


STEP  FUNCTION  # 2 

10/21/77 


. 


* 


FINAL  CONFIGURATION 


DLTAUP  = 7.5HZ 


f START  = TAC  + 7.25HZ 


STEP  FUNCTION  « 6 

10/21/77 


FOURIER  COEFFICIENTS  VRS  % MODULATION 

/ MOD  1 PULSE  MODE 

10/24/77 

X 7.  MOD  ❖ V5  XV'/  □ Vll  a V13 


OH- 


7 MOD  2 PULSE  MODE 

10/2U/77 


i 


■IN 


m 


X MOD 

10/24/77 


8 PULSE  MODE 


X X MOO  O V5 


□ vn 


A V13 


I 


•/.  MOD  4 PULSE  MODE 

10/2H/77 


X 7.  MOO 


❖ VI 7 


X VI  3 


□ V23 


a V25 


IN-HI 
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A MICROPROCESSOR  CONTROLLED  MOTOR  CONTROLLER  FEASIBILITY  STUDY. (U) 
MAR  7B  A L BULOVSEN  N0001A-77-C-0352 

UNCLASSIFIED  R-11A7  NL 


SLIP  CONTROL  .T. 

11/8/77  S10EHL--5HZ  (INCtDELflCl  (30ms  DELAY) 


